Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании a:Пожалуйста посчитайте составить программу. Pascal ABC.

var a,b,q:integer;
s,h:real;
begin
clrscr;
writeln('Введите основания');
readln(a,b);
writeln('Введите угол в градусах');
readln(q);
h:=(abs(a-b)/2)*sin(q*pi/180)/cos(q*pi/180);
s:=((a+b)*h)/2;
writeln('Площадь=',s:1:2);
readkey;
readln;
end.