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

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

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.