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

По двум основаниям и высоте.   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.