Срочно нужна помощь в информатике.
Написать подпрограмму-функцию вычисления площади трапеций

ПАСКАЛЬ

var
  x,y,z:real;

function ST(a,b,h:real):real;
begin
  ST:=(a+b)*h/2
end;

begin
  Write('Введите длины оснований и высоту трапеции: ');
  Read(x,y,z);
  Writeln('Площадь трапеции равна ',ST(x,y,z):0:5)
end.

Пример
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000