Помогите пожалуйста. Напишите программу вычисления площади трапеции по длине основ. и высоте S=1/2*(a+b)*h

program p2; var a,b,h,s:real; begin writeln ('Vvedite osnovanie); read (a); writeln ('Vvedite drugoe osnovanie); read (b); writeln ('Vvedite visotu);