составьте программу нахождения площади равнобедрянной трапеции через стороны a,b,c (вопрос 10)

//PascalABC.NET//Версия 3.3, сборка 1611beginvar (a,b,c):=ReadReal3();write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));end.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  Writeln('a,b - большее и меньшее основания равнобедренной трапеции');  Writeln('с - боковая сторона этой трапеции. Вычисляется площадь S');  var (a,b,c):=ReadReal3('Введите a,b,c через пробел:');  var s:=(a+b)/2*Sqrt(c*c-Sqr(a-b)/4);  Writeln('S=',s:0:4)end.Примерa,b - большее и меньшее основания равнобедренной трапециис - боковая сторона этой трапеции. Вычисляется площадь SВведите a,b,c через пробел: 6 4.5 2.7S=13.6171