program PascalGuru;
 
var A:array[1..8,1..8] of integer;
    B:array[1..8] of integer;
    i,j,k:integer;
 
 
begin
 
for i:=1 to 8 do
for j:=1 to 8 do A[i,j]:=2+random(26); {begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;     }
 
write ('Vot vvedennaya vami matrica A:');
for i:=1 to 8 do begin writeln;
for j:=1 to 8 do write (A[i,j]:8,' '); end;
 
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do
 if i=j then begin inc(k); B[k]:=A[i,j]; end;
 
writeln;writeln;writeln('Otvet:');
for i:=1 to 8 do write (B[i]:8,' ');
 
 
readln;
end.