Question

Напишите программу нахождения периметра квадрата, если задана его площадь

Answer 1

var
a,S,P: real;
begin
readln(S);
a:=sqrt(S);
P:=a*4;
writeln(P);
end.