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

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