program kk;
var i,p,n:LongInt;
BEGIN
writeln('vv natur ziclo n ');
readln(n);
i:=1;
repeat
inc(i);
Until (i> n div 2) Or (n mod i=0);
if i> n div 2 then writeln('ziclo ',n,' proctoe.')
else writeln('ziclo ',n,' coctavnoe: ',i,'ego perv del.');
readln;
END.