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

program zz1;

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

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

begin

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

readln (a, b);

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

readln (c);

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

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

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

end.