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

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