Делители числа 840. Помогите!

1 2 3 4 5 6 7 8 10 12 14 15 20 21 24 28 30 35 40 42 56 60 70 84 105 120 140 168 210 280 420 840

(программа в паскале:

var a, i:integer;

begin

readln (a);

for i:=1 to a do

if a mod i=0 then write (' ', i);

end.)