Найти площадь равнобедренной трапеции с основаниями а и b и углом а при большем основании а. (программа Паскаль)

Question

Найти площадь равнобедренной трапеции с основаниями а и b и углом а при большем основании а.

Answer 1

uses crt;
var a,b,u,h,s:real;
begin
repeat
writeln('Введите основания трапеции a>b');
read(a,b);
until(b>0)and(a>b);
repeat
writeln('Введите острый угол');
read(u);
until(u>0)and(u<90);
u:=u*pi/180;
h:=(a-b)*sin(u)/(2*cos(u));
s:=(a+b)*h/2;
write('S=',s:0:2);
end