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

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

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

var a : integer;

begin
  while (a < 100) do
    begin
     a := a + 4;
     write(a, ' ');
     end;
  readln();
end.