Uses crt;var a:integer; S,R,r2,P:real;begin write ('Введите сторону a: '); readln (a); S:=((a*a)*sqrt(3))/4; R:=(a*sqrt(3))/3; P:=3*a; r2:=(a*sqrt(3)/6); writeln ('Площадь равностороннего треугольника: ',S:1:2); writeln ('Радиус описанной вокруг равностороннего треугольника окружности ',R:1:2); writeln ('Радиус вписанной в равносторонний треугольник окружности: ',r2:1:2); writeln ('Периметр равностороннего треугольника: ',p:1:2);end.