program rus;
var n,i,j:longint;
b:array[1..534785] of real;
begin
n:=0;
while not eof do begin
n:=n+1;
Readln (j);
b[n]:=sqrt (j);
writeln (b[n]);
end;
end.
______________________________
i am readln 475
paskal writeln
52
21.7944947177034
-1