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

var a, b, h, s: real;

begin write (\'Введите меньшее основание трапеции: \'); read (a); write (\'Введите большее основание трапеции: \'); read (b); write (\'Введите высоту: \'); read (h); s := (a + b) * h / 2; writeln (\'Площадь трапеции равна: \', s); readln;end.