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

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

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

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