Найти площадь равнобедренной трапеции с основанием а и в и углом при большом основании с написать на паскале

Var
  a, b, c, h, s, tg : double;
begin
  read (a, b, c);
  tg := sin (c * pi / 180) / cos (c * pi / 180); //функции принимают углы в радианах
  h := tg * abs(a - b) / 2; 
  s := h * (a + b) / 2;
  writeln (s);
end.