Задание

Сколько раз будет выполнено тело цикла?

for i := -1 to 1 do s := s + i;