Втаблице запросы и количество найденных по ним страниц
некоторого сегмента сети интернет.

надеюсь азы ты знаешь, поэтому основной код

{pascal abc.net}

1)

readln(a,h);

s: =0.5*a*h;

write(s);

2)

readln(a,b);

if (a> =-1) and (a< =1) then writeln('a принадлежит') else write('a не принадлежит');

if  (b> =-1) and (b< =1) then writeln('b принадлежит') else write('b не принадлежит');

3) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс

functionpower(a, b : real) : real;

begin

if a > 0  then power : = exp (b * ln (a))

else

if a < 0  then power : = exp (b * ln (abs (

else power : = 0end;

4) самую простенькую на оператор выбора выложу

var a,b: integer;

      d: real;

      c: char;

beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('выберите арифметическое действие: '); readln (c); case c of'+': d: = a+b; '-': d: = a-b; '*': d: = a*b; '/': d: = a/b; end; write('результат: 'd: 10: 4);