Pascal abc как сделать инециалы в нём подскажите !

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.

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5