Исполнить программу нахождения площади прямоугольной трапеции, если основания трапеции 9см и 18см, большая сторона равна 15см

 Var a,b,h,l;real; {a- Меньшая сторона основания, b большая сторона основания, h высота, l большая сторона} begin read(a,b,l); h=sqrt(sqr(l) - sqr(b-a));{При усоловии что b это большая сторона, находим высоту} S:=((a+b)*h)/2; {Находим площадь трапеции} writeln(S:3:0); {Выводим результат (S:3:0 <- 3 сколько знаков до запятой,  0 сколько после)} end.