Выполнить вывод на экран всех чисел от - 4 до 4 с шагом 1.

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i:=-4 to 4 do / /организуем перебор всех чисел от минус четырех до четырех, в цикле параметр цикла увеличивается на единицу автоматически

write (i,' '); / / выводим это число на экран в строчку через пробел

end.