// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Укажите код заданной величины в правильном треугольнике');
Writeln('1-сторона, 2-площадь, 3-высота, 4-радиус вписанной окружности,');
var k:=ReadInteger('5-радиус описанной окружности:');
var sr3:=Sqrt(3); // часто нужно
case k of
1:begin
var a:=ReadReal('Введите длину стороны треугольника:');
Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
Writeln('Высота треугольника ',a*sr3/2:0:5);
Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
Writeln('Радиус описанной окружности ',a/sr3:0:5)
end;
2:begin
var s:=readReal('Введите значение площади треугольника:');
var a:=Sqrt(4*s/sr3);
Writeln('Сторона треугольника ',a:0:5);
Writeln('Высота треугольника ',a*sr3/2:0:5);
Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
Writeln('Радиус описанной окружности ',a/sr3:0:5)
end;
3:begin
var h:=ReadReal('Введите высоту треугольника:');
var a:=2*h/sr3;
Writeln('Сторона треугольника ',a:0:5);
Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
Writeln('Радиус описанной окружности ',a/sr3:0:5)
end;
4:begin
var r:=ReadReal('Введите радиус вписанной окружности:');
var a:=2*r*sr3;
Writeln('Сторона треугольника ',a:0:5);
Writeln('Высота треугольника ',a*sr3/2:0:5);
Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
Writeln('Радиус описанной окружности ',a/sr3:0:5)
end;
5:begin
var R:=ReadReal('Введите радиус описанной окружности:');
var a:=R*sr3;
Writeln('Сторона треугольника ',a:0:5);
Writeln('Высота треугольника ',a*sr3/2:0:5);
Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5)
end;
else Writeln('Введено недопустимое значение')
end
end.