program delitele;
 {hledani delitelu cisla}
 uses crt;
 var  j,i,n:integer;
 
 begin
  clrscr;
  write('Zadej cislo: ');
  read(n);
  writeln;
  i:=0;
  for j:=1 to n do begin
   if n mod j = 0 then begin
    i:=i+1;
    writeln(j:3,' je delitel cisla ',n:3);
   end;
  end;
  writeln('Pocet delitelu: ',i:3);
  writeln;
  if i>2 then writeln('Cislo ',n:3,' neni prvocislo.')
   else writeln('Cislo ',n:3,' je prvocislo.');
  repeat until keypressed;
 end.