Question

Найти периметр квадрата, площадь которого равна выеденному числу а

Answer 1

Var S: double;
begin
  readln(S);
  writeln('P = ', sqrt(S) * 4);
end.