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

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