Balatech asia 96 уровень

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.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

2*3=6

512*128*6=393216

393216: 1024=384кб

на 1 дереве - 5 

на 2дереве - 7