Безотлагательно Нужна помощь по информатике.Надобно написать подпрограмму нахождение функцию вычисления

ПАСКАЛЬ

var
  x,y,z,r:real;

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

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

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