задача 7 урок 10:

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

//вариант решения 1
var i:integer;
begin
    for i:=1 to 100 do
        if (i mod 7) = 0  then
          write(i, ' ');

  readln();
end.  

А вот если бы цикл начинался не с 1 но задание было бы прежним, (иными словами нужно найти не кратное 7 а именно каждое 7е число в любом ряду) подойдет второй вариант решения:

//вариант решения 2
var i, m:integer;
     flag: boolean;
begin
  flag := false;
    for i:=1 to 100 do begin
        if (flag = false) AND ((i + 6) < 101) then  begin
            m := i + 6;
            flag := true;
            write(m, ' ')
        end;
        if (i = m)  then
            flag := false;
    end;

  readln();
end.