Урок 10 задача 9

Урок 10 задача 9

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;

  begin

    for i := 1 to 100 do
      if ((i mod 7) = 0) then
        write(i,' ');
    readln;

  end.