Блиц-опрос! Опции

[UtaH]

Господа программеры и программерши! Объявляется блиц опрос на внимательность! Вопросов не знаю пока сколько, ну в общем время пошло. Итак, вопрос №1:
Почему TCP-пакеты доходят до цели?

Кто первый правильно ответит - тот будет COOL :D

[klem4]

a=0;
3: inc(a,ord('2')-ord('0')); goto 1;
ord('2')=50 , ord('0')=48 =>=1 => a=2;

goto 1
if i=0 (да) then a:=a+i=> a=2; (i до сих пор равно нулю.)
goto 0;
=>
if i=0 (да) goto 2 + ВЫВОД (а=)2.

Ответ : Вывод числа 2.

Дальше цикл выполнятся не будет. так как for i:=1 to 20 ... if i=0...
PS. посмотрел чему равно ord('2') и ord ('0'), просто не знал.