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

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. 

Спасибо большое! Вы мне очень помогли.