Помогите сделать информатику ! итоговую работу !
Записи по Паскалю:
1) основные операторы
2) листинг программ
+
•определение S треугольника по основанию и высоте
•принадлежность чисел А и В интервалу [1;-1]
•возведение числа a в степень n
•оператор выбора.

это все что продиктовал учитель, я болела долго и поэтому все пропустила! помогите получить хорошую оценку !!! ;))

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

{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;

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);