Составить программу для нахождения площади ромба по стороне а и острому углу 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 кв.ед.