Программа для поиска площади трапеции

Для нахождения площади трапеции надо знать как минимум основания и высоту: s = (a+b)/2*h
Дальше линейный алгоритм:

var a,b,h:real;
begin
  writeln('Введите длины оснований (a,b) и высоты h');
  readln(a,b,h);
  writeln('Площадь трапеции = ', (a+b)/2+h);
end.