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

{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) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс

function power (a, b : real) : real;

begin

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

else

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

else power := 0end;

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

var a,b:integer;

      d:real;

      c:char;

begin
write('Введите первое число: ');
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);