решите пожалуйста, безотлагательно надобно.Чему будет одинаково значение целой переменной amp;lt;аamp;gt; после

Решите пожалуйста, безотлагательно надобно.
Чему будет одинаково значение целой переменной lt;аgt; после исполненья этого куска программы?

a:=0
for i:=0 to 2 do begin
a:=a-i
end;