Program matrica;
Uses crt;
Var a:array [0..8 ,  0..8] of integer;
       sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i"j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], '    ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,'  'Сумма чисел второй диагонали' ,sum2,');
end.