Var a:real;BeginWrite(Сторона равностороннего треугольника: );ReadLn(a);WriteLn(P = ,a*3);WriteLn(S = ,a*a);End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.