Чему равна переменная a после выполнения цикла?
a = 1;
for i := 3 to 1 do a = a + 1;