Данные какого типа хранятся в массиве B: array [1..28] of string?

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

101110, 101111. в десятичной эти числа равны 46 и 47.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)