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

Какой язык программирования?

Паскаль

мне надобно сейчас не функцию а функцию

ПАСКАЛЬ

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