Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do begin
a:=a-3;
end;

Скорее всего будет ровно единице, нужно повторить три раза действие a=a-3.