Напишите пожалйста программу ** языке Паскаль S (площадь) трапеции​

Question

Напишите пожалйста программу на языке Паскаль S (площадь) трапеции​

Answer 1

Var a,b,h:real;

begin

readln(a,b,h);

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

end.