Решение задачи №7 из главы 10.1

Решение задачи №7 из главы 10.1

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

Вывод консоль
7
14
21
28
35
42
49
56
63
70
77
84
91
98

var i: integer;
Begin
for i:=1 to 100 do
begin
 if (i mod 7)=0 then
   writeln(i);
end;
readln();
End. 

Второй вариант
Вывод консоль
7
14
21
28
35
42
49
56
63
70
77
84
91
98

var i,j: integer;
begin
for i:=1 to 100 do
begin
j:=j+1;
if (j=7) then begin
   j:=0;
   writeln(i);
end;
end;
readln();
end.