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.