Вычислить площадь трапеции при известных основаниях и высоте - Turbo Pascal

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

Листинг программы

var
  a,b,h:real;
begin
  write('a,b,h=');readln(a,b,h);
  writeln('S=',(a+b)*h/2:0:4);
end.

Объяснение кода листинга программы

var a, b, h: real; - объявление переменных типа real с именами a, b, h
write('a,b,h='); readln(a, b, h); - чтение значений переменных a, b, h с помощью функции readln
writeln('S=',(a+b)h/2:0:4); - вычисление площади трапеции по формуле S = (a + b) h / 2 и вывод результата
end. - завершение программы