Найти площадь равнобедренной трапеции с основаниями 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.