Как ответить. Написать программу, которая находит все делители введенного числа N. паскаль

program zz1;var n, i:integer; // задаем переменные целого типаbeginwrite(' введите число n '); // вводим с клавиатуры заданное числоread(n);write(' Делители числа ', n, ': ');for i:=1 to n do // организуем цикл, в котором переберем все числа от 1 до nbeginif n mod i = 0 // проверяем число на делимость, если заданное число делится без остатка, то then write(i, ' '); // выводим делитель на экранend;end.