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

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

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

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