Первое:
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.