Дз по ИКТ, помогите плиз✴✖кто шарит? Лично я не оч

Составьте программу для вычисления площади трапеции.
Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b.

Ответ учителя по предмету Информатика

Первое:

program qw;

    var a,b,h,s:real;

begin;

    writeln(‘Введите длину оснований и высоту: ‘);

    read(a,b,h);

    s:=(a+b)*h/2;

    write(‘Площадь трапеции равна ‘, s);

end.

Второе:

program qe;

    var a,b,s:real;

begin;

    write(‘Введите катеты треугольника: ‘);

    read(a,b);

    s:=0.5*a*b;

    write(‘Площадь треугольника равна ‘,s);

end.