S трапеции в паскаль

var a,b,h:real;

begin

readln(a,b,h); //a и b - основания, h - высота трапеции

writeln(((a+b)/2)*h); {Вывод площади трапеции - произведение полусуммы оснований на высоту}

end.