for j := 1 to 100 do if i mod 10 = 0 then writeln(i);
Б)
for j := 1 to 50 do if i mod 7 = 0 then writeln(i);
for j := 1 to 100 do
if i mod 10 = 0 then writeln(i);
Б)
for j := 1 to 50 do
if i mod 7 = 0 then writeln(i);