var a,S,P: real;
begin
writeln('Введите S квадарата: ');
readln(S);
a:=sqrt(S);
P:=a*4;
writeln('P = ',P);
end.
