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

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

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

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