Составте программу для вычисления площади трапеции по заданной высоте…

Язык программирования Pascalprogram zadacha1var a,b,h,s: real; begin write ('Введите верхнее основание трапеции '); readln (a); write ('Введите нижнее основание трапеции '); readln (b); write ('Введите высоту трапеции '); readln (h); s: =(a+b) /2*h; write ('Площадь трапеции=',s); end.