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

var

a, b, h, s : Real;

begin

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

Write ('Основание a = ') ; Readln (a) ;

Write ('Основание b = ') ; Readln (b) ;

Writeln (#10#13 + 'Введите высоту трапеции: ') ;

Write ('Высота h = ') ; Readln (h) ;

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

Writeln (#10#13 + 'S трапеции = ', s:0:1) ;

end.

По двум основаниям и высоте.

var a, b, h:real;

begin

readln (a, b, h) ;

writeln (h * (a+b) / 2) ;

end.