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

[UtaH]

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

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

[Altair]

Что выведется на экран?

НЕ ПОЛЬЗОВАТЬСЯ КОМПИЛЯТОРОМ!!!

Все на вашей СОВЕСТИ. ;)

var i,a:integer;
label 1,2,3,0;
begin
 3: inc(a,ord('2')-ord('0')); goto 1;
 2: for i:=1 to 20 do begin
 1: If i=0 then a:=a+i; end; goto 0;
 0: if i=0 then goto 2; writeln(a);
end.