Урок 11 Задача 11

Урок 11 Задача 11:

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
  i:= 4; // начальное значение счетчика
  while (i <= 100) do
  begin
    write(i, ' '); // выводим значение счетчика
    i := i + 4;    // увеличиваем значение счетчика на 4
  end;
  readln();
end. 

Вывод в консоли:
4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100