Определите значение j после выполнения следующих операторов.
i:=1000; j:=397;
while i>0 do
begin
j:=j+1;
i:=i-1;
end;