Why do I always have wrong answer?(Pascal)
program p1001;
var
a:array[1..1000000] of extended;
l,k,t:integer;
i:longint;
begin
i:=1;
repeat
k:=0;
while not seekeoln do
begin
read(a[i]);
i:=i+1;
k:=k+1;
end;
readln;
if k=0 then t:=t+1 else t:=0;
until(t=2);
for l:=i-1 downto 1 do
writeln(sqrt(a[l]):0:4);
end.