Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании b:
[tex]S = \frac{b^{2} - a^{2}}{4} tg \alpha [/tex]

Помогите составить программу. Pascal ABC.

Var A,B,C:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);Write('Угол при большем основании B = ');ReadLn(C);WriteLn('S = ',(B*B-A*A)*Sin(C)/(4*Cos(C)))End.