program co_robi_5;
uses crt;
var i, cislo, pocet:integer;
begin
  writeln('Zadaj prirodzene cislo ');
  readln(cislo);
  writeln('Idem vypisovat specialne cisla:');
  pocet:=0;
  for i:=1 to cislo do
    if cislo mod i = 0 then
      begin
        writeln(i);
        pocet:=pocet+1;
      end;
  writeln('Je ich spolu ',pocet);
  writeln('O ake cisla ide?');
  readln;
end.