Составить программу для нахождения площади ромба по стороне а и острому углу f (угол предварительно переведите в радианы t = f · 3,14 : 180) по формуле S = a 2 sin t

var  a, f, t, S: real;begin  Write('Введите длину стороны ромба: '); Readln(a);  Write('Введите величину острого угла ромба в градусах: '); Readln(f);  t := f * pi / 180;  S := sqr(a) * sin(t);  Writeln('Площадь ромба равна ', S, ' кв.ед.')end.Тестовое решение:Введите длину стороны ромба: 14.3Введите величину острого угла ромба в градусах: 58.7Площадь ромба равна 174.728286173858 кв.ед.