Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a > b) и углом alpha при большем основании (угол дан в радианах) — 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.