Задача 7 Урок 10

link

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

program lesson10_7;
var
  i : integer;
begin
 for i := 1 to 100 do
     if i mod 7 = 0 then
        write(i, ' ');
  readln();
end.