PROGRAM Prvocislo;
var x,h,d,z :longint;
begin
writeln('Zadaj cele cislo');
read(x);
d:=0;
write('delitele:');
for h:=2 to (x-1) do
begin
z:=x mod h;
if z=0 then
begin
d:=d+1;
write(x div h,',');
end;
end;
if d=0 then
begin
writeln(' ziadne');
writeln ('Cislo ',x,' je prvocislo')
end
else
begin
writeln;
writeln('Cislo ',x,' je zlozene cislo, ma ' ,d,' delitelov' );
end;
ReadLn;
end.