Program z25; Var a,b,c,i,n:integer; del:array[0..100]of integer; ch:array[0..20]of integer; Begin a:=120; b:=140; For c:=0 to 20 do begin ch:=a; a:=a+1; i:=i+1; end; {заносим значения в массив} For i:=0 to 20 do write (ch,' '); {вывод массива на экран} begin {находим делители} {заносим делители во второй массив} {выводим делители на экран} end; end. Правильно ли я делаю и как доделать программу (что писать во втором цикле?)