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

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

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

program lesson11_11;
var
    i : integer;
begin
    i := 1;
    while i <= 100 do
    begin
        if i mod 4 = 0 then
            write(i, ' ');
        i := i + 1
    end;
    readln()
end.