Задача 7 урок 10.1

Задача 7 урок 10.1

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

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