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

program zz1;

var a, b, c:integer; // задаем переменные целого типа

s, h:real; // задаем переменные не целого типа

begin  

writeln( Введите основания ); // вводим с клавиатуры два числа

readln(a, b);

writeln( Введите угол в градусах ); // вводим с клавиатуры число

readln(c);

h:=(абс(a-b)/2)*sin(c*pi/180)/cos(c*pi/180); // вычисляем вышину трапеции по формуле

s:=((a+b)*h)/2; // вычисляем площадь трапеции по формуле

writeln( Площадь = , s:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки

end.