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

http://fkn.ktu10.com/?q=node/7341

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

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

  end.