program Soucet_delitelu;
uses crt;
var a,b,c,d,y,z:integer;
var p:array [0..10] of byte;

begin
clrscr;
textcolor(2);
writeln;
write (' Cislo please: ');
read(a);
y:=0;
write(' Cislo ma delitele: ');

repeat;
for z:=1 to a-1 do
if (a mod z) = 0 then begin
                      p[y]:=z;
                      write (' ',p[y]);
                      c:=c+p[y];
                      y:=y+1;
                      end;
until z=a-1;


writeln;
writeln;
write (' Zapisuji DATA .');
delay(700);
write ('.');
delay(600);
write ('.');
delay(300);
write ('.');
delay(300);
write ('.');
delay(200);
write ('.');
delay(100);
write ('.');
delay(500);
write ('.');
writeln (' Hotovo');
writeln;
writeln;
writeln (' Pocet cisel v poly: ',y);
writeln (' Soucet delitelu je: ',c);
{writeln (' Pocet slov:  ',w);}

writeln;
delay(3000);
read;
end.