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

uses Crt;                                                                         
Var h,c,a,b,alp,s,p:real;
begin
clrscr;
read(a,b,alp);
                  h:=((a-b)/2)*(sin(alp)/cos(alp));
                  c:=((a-b)/2)/cos(alp);
                  p:=a+b+2*c;
                  s:=h*((a+b)/2); 
writeln('Периметр=',p,'Площадь равна',s); 
readln;
end.