hello i have problem with my code and i dont know where is it T_T
here is my code :

var a:real;
i,k:integer;
z:array[1..100]of real;
begin
k:=1;
while not eof do begin
read(a);
z[k]:=sqrt(a);
k:=k+1;
end;
for i:=k-1 downto 1 do begin
    writeln(z[i]:0:4);
    end;
end.