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