Найти площадь равнобочной трапеции с основаниями a и b и углом при большем основании с — Pascal(Паскаль)

uses crt;
var
s,h,alf,a,b:real;
begin
writeln('a='); readln(a);
writeln('b='); readln(b);
writeln('alf='); readln(alf);
h:=2*((sin(alf))/(cos(alf)));
s:=((a+b)/2)*h;
writeln('s=',s);
end.