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

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

(при более оптимальном решении проверка через mod не потребуется)

program programma11;
var i : integer;
begin
  i:=4;
  while (i <= 100) do
  begin
    write(i,' ');
    i:=i+4;
  end;
  readln();
end.