S трапеции в паскаль
var a,b,h:real;
begin
readln(a,b,h); //a и b - основания, h - высота трапеции
writeln(((a+b)/2)*h); {Вывод площади трапеции - произведение полусуммы оснований на высоту}
end.