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.