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

Var a,b,h,l; real; {a- Меньшая сторона основания, b большая сторона основания, h высота, l большая сторона}beginread (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.