program p1;
label 1;
var i,n:integer;
    prod:char;
 
begin
1:write('N= '); readln(n);
writeln('Vse ego naturalinye deliteli:');
for i:=1 to n do
if n mod i=0 then writeln(i);
 
write('Vi xotite prodoljiti? (y/n) ');  readln(prod);
if prod='y' then goto 1;
readln;
end.