65 баллов даю. Pascal abc.Дан массив размером nn, элементы которого целые

Если я правильно сообразил, то

var a: array of array of integer;

n,i,j: integer;

begin

write('Введите N: ');

readln(n);

setlength(a,n);

for i:=0 to n-1 do setlength(a[i],n);

for i:=0 to n-1 do

for j:=0 to n-1 do a[i,j]:=random(n)*2;

writeln('Вывод матрицы :');

for i:=0 to n-1 do begin

writeln;

for j:=0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('Основная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('Побочная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.