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

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

var a,b,h: real;

begin

readln(a,b,h);

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

end.

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.