Задача C. Делители Дано целое число N. Вам нужно определить количество его делителей Формат входных данных Единственная строка входного файла содержит целое число N (1

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