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

Вспомним формулу площади равнобедренной трапеции через основания и угол при большем основании:

Программа для вычисления площади:

program z_7;
var a, b, alpha, S: real;
begin
  write('a = ');  read(a);
  write('b = ');  read(b);
  write('alpha = ');  read(alpha);
  alpha:=(alpha*pi)/180;
  S:=(1/2)*(sqr(b)-sqr(a))*tan(alpha);
  writeln('S = ', S);
end.