Вопрос для Илюхи:
Натуральное число, на которое заданное числоделится без остатка:
Илюха-Отвечает:
var i,n :integer;
Begin
read(n);
for i:= 1 to n do
if n mod i = 0 then
writeln(i);
End.