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

Язык программирования 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.