Помогите, пожалуйста! Очень надобно! Обусловьте значение переменных s и i после

Помогите, пожалуйста! Очень надобно! Определите значение переменных s и i после выполнения фрагмента программы:


s:=0; i:=-3;

while ilt;2 do

begin if ilt;0 then A:=i*i else A:=i

s:=s+A;

i:=i+1;

end;