var n,i:integer;
begin
n:=1;
for n to n*n-1 do begin
if i mod n = 0;
writeln('Наешлся делитель!!! ',i);

end.