Найти все делители числа N, кратные 5

var i, n: integer; begin write('N = '); readln(n); for i:=1 to n do if (n mod i = 0) and (i mod 5 = 0) then write(i, ' '); end.