Задание 5. Создайте текст, содержащий числовую загадку. Используя символы шрифта Wingdіngѕ2, вставьте символы с числами, затем расставьте между ними знаки «+», «-» так, чтобы получилось выражение, значение которого равно 10 (рис. 4.2 ​

Предполагается, что вводятся длины сторон по которым можно построить треугольник:

var a,b,c,p:real;
d,e,f:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
writeln('Углы равны:');
d:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a*(180/pi);
e:=(2*arctan(sqrt((p-a)*(p-c)/(p*(p-b*(180/pi);
f:=(2*arctan(sqrt((p-a)*(p-b)/(p*(p-c*(180/pi);
writeln(int(d),' град, ',int(frac(d)*60),' мин ', frac(frac(d)*60):5:2,' сек');
writeln(int(e),' град, ',int(frac(e)*60),' мин ', frac(frac(e)*60):5:2,' сек');
writeln(int(f),' град, ',int(frac(f)*60),' мин ', frac(frac(f)*60):5:2,' сек');
end.

Пример
a=3
b=4
c=5
Углы равны:
36 град, 52 мин  0.19 сек
53 град, 7 мин  0.81 сек
90 град, 0 мин 0.00000 сек