1. a:=’уравнение’;
m:=length(a)+4;

writeln(m)
Можно ответ

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

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

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа