Составить алгоритм нахождение площади трапеции по двум основаниям s=? a b h

Ну, без высоты же не обойтись

var
  a, b, h: real;

begin
  readln(a, b, h);
  writeln('S = ', (a * 0.5 + b / 2) * h);
end.