Начало здесь
Решение но что то не то
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.