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

11. While

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

var a:integer;
begin
a := 0;
while (a <> 100) do
  begin
    a:= a + 4;
    write(a, ' ');
  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