Дана матрица x={x(ij)},i=1,,j=1,. вывести на печать элементы матрицы, сумма индексов которых равна заданной константе b.(паскаль)

Program a5; type mass=array [1..40] of integer; var i, j,n,s: integer; procedure horline; bedin read (n,m); for i: =1 to n  for j: =1 to m do read(a[i,j]); end; begin horline; read(b); for i: =1 to n do for j: =1 to m do  if i+j=b then  write (a[i,j], 'b'); end.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5