Составить программы для цикла for А) Вывести число от 1 до 100, кратное 10 Б) Вывести число от 1 до 50, кратное 7

  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);