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

ПАСКАЛЬvar  x,y,z,r:real;procedure ST(a,b,h:real; var s:real);begin  s:=(a+b)*h/2end;begin  Write('Введите длины оснований и высоту трапеции: ');  Read(x,y,z);  ST(x,y,z,r);  Writeln('Площадь трапеции равна ',r:0:5)end.ПримерВведите длины оснований и высоту трапеции: 10.4 7.3 8Площадь трапеции равна 70.80000