Паскаль! Ввести целое число и определить все его делители. Вывести все делители числа на экран. Через repeat и until.

Вопрос школьника по предмету Информатика

Паскаль! Ввести целое число и определить все его делители. Вывести все делители числа на экран. Через repeat и until.

Ответ учителя по предмету Информатика

c:=0;

for i:=1 to n do

begin

if n mod i = 0 then writeln(i);

inc(c);

end;