Написать программу вычисления площади равнобедренной трапеции. Значения основания и боковой стороны вводятся с клавиатуры.
Var a,b,c,s:real; begin writeln ('Введите основания и боковую сторону: '); readln(a,b,c); s:=(a+b)/2*sqrt(c*c-(a-b)*(a-b)/4); writeln('S=',s); end.