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

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