Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln(Периметр = ,P, Площадь = ,S);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.