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

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