var i:integer;
begin i:=10;
for i:=1 to i do
write(i);
readln;
end.
Можете объяснить, почему это работает? По логике, начальное значение i сменяется присвоением i:=1, и цикл должен прогоняться всего лишь один раз. Тем не менее, этот код работает не так и цикл проходит 10 раз. Почему?