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

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

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

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

    
Вывод консоли:
4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100