program p02;

uses Crt;

var  n,i:longint;
   prvoc:boolean;

begin
clrscr;
write('Zadej cislo ');
readln(n);
prvoc:=true;
writeln('Delitele  cisla ',n,' jsou :');
for i:=2 to n-1 do if (n/i)=trunc(n/i) then
begin
  prvoc:=false;
  write(i,',');
end;
if prvoc=true then writeln('Cislo nema delitele - je prvocislo.');
repeat until keypressed;
end.