Ответ:

var a,b,h,s:real;

begin

 writeln('Программа находит площадь трапеции по двум основаниям и высоте');

 writeln('Введите основания трапеции');

 readln(a,b);

 writeln('Введите высоту трапеции');

 readln(h);

 s := 0.5*h*(a+b);

 writeln('Площадь трапеции: ',s);

end.

Объяснение:.