Программа которая рассчитывает площадь трапеции если с клавиатуры вводят 2-yx сторон и высоту..

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