Найти периметр квадрата, площадь которого равна выеденному числу а
Var S: double; begin readln(S); writeln('P = ', sqrt(S) * 4); end.