Зачем нужны два рабочих цвета?

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

в цикле sum [i]: =sum+mas[i,j];

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один

на 1 дереве - 5 

на 2дереве - 7