Объем сообщения равен 8 кбайт. сообщение содержит 8192 символов. какова мощность алфавита, с которого написано сообщение?

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);