Вопрос по задаче №2 из главы 12.2. Переделать цикл while на for (продолжение)

Вопрос по задаче №2 из главы 12.2. Переделать цикл while на for (продолжение)

Начало здесь

Решение но что то не то

var i:integer;

begin

    for i:=1 to 100 do
    begin

       if (i div 5)=0  then //если i  делиться на 5 на цело
          write(i,'  ') // тогда выводим i который
       else
          break;  // прерываем цикл

    end;
   writeln();
   readln();
end.    
Subscribe to RSS - Вопрос по задаче №2 из главы 12.2. Переделать цикл while на for (продолжение)