Вводится число n найти все его делители ( задача по инфарматике)

var i,n: integer;begin//вводим исходное числоWrite(\'Введите число n: \'); Readln(n);Write(\'Делителями числа \', n, \' являются: \');//перечисляем все возможные числа в промежутке от 1 до nFor i:=1 to n dobegin//если при делении на какое-либо из них остаток 0, то это делитель => выводif (n mod i = 0) then write (i, \' \'); end;end.