1.подсчитать в килобайтах количество информации в тексте, если текст состоит из 800 символов, а мощность используемого алфавита – 128 символов.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

см схему на стр 15, № 34