program osztok;
uses crt;
var j,i,n:integer;
begin
     clrscr;
     writeln('Add meg, hogy melyik szam osztoit keresed!');
     readln(n);
     j:=0;
     for i:= 1 to n do
         if (n mod i)=0 then
                        begin
                        write(i,', ');
                        j:=j+1;
                        end;
     writeln;
     writeln(n,' szamnak osszesen ',j,' osztoja van!');
readln;
end.