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

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