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