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

Составьте программу для вычисления площади трапеции.
Составьте программу для вычисления площади прямоугольного треугольника по его катетам 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.