Отыскать периметр и площадь прямоугольного треугольника если знамениты радиус описанной

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (x, ad) := ReadReal2('Введите радиус и угол в градусах:');

 var ar := DegToRad(ad);

 var c := 2 * x;

 var (a, b) := (c * Sin(ar), c * Cos(ar));

 var (P, S) := (a + b + c, a * b);

 Writeln('P=', P:0:3, ', S=', S:0:4)

end.

Введите радиус и угол в градусах: 23 37.5

P=110.497, S=1021.9495