Ответ:

program P16;

const n =3;

var b: array [ 1.. n, 1 .. n] of real; i, j: integer; S: real; begin

uriteln('BBEДИTE 3HАЧЕHИЯ ЭЛЕМЕHTOB TAБЛИЦЫ ПO CTРОКАМ');

writeln ('B KOHЦE KAЖДОЙ СТРОКИ HAЖИМАЙТЕ <Enter> ');

for 1: = 1 to n do begin

read(b[i,j]):

writeln

end;

S: = 0;

for i: = 1 to n do

S: = S+ b [i, i ]:

vrite (' CУMMA ЭЛЕMEHTOB ДИАГОНАЛИ TAБЛИЦЫ S = end. S)

Объяснение:

ПОМОЭМУ ПРАВИЛЬНО