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

5 бит, т.к. 32=2 в пятой степени

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

readln (a, b);     -  вводим значения а в

c: =(a+b) * (b-a);   - выполняем уравнение

    writeln (c) -  выводим результат

в итоге получается

с=(7+8)*(8-7)

c=15

соттветственно будет получен результат 15 на экране.