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

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

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

program Lesson11;
var i: integer;
begin
  i:=4;
  while (i<=100)  do
  begin
    writeln(i);
    i:=i+4;
  end;
readln();
end.