площадь трапеции на языке ABC pascal

1 2 3 4 5 6 7 8 9 10 11 12 uses crt; var a,c,h,s,x:real; begin clrscr; writeln('Введите длины большего основания, боковой стороны и высоты '); writeln('равнобедренной трапеции:'); readln(a,c,h); x:=sqrt(c*c-h*h); s:=(a-x)*h; write('Площадь=',s:0:2); readln end.