Сколько байт информации содержит сообщение объёмом 1/512 мбайт

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

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

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.