Задача 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 += 4;
   end;
  readln();
end.