В двумерном массиве A(N ,N) все элементы первой строки заменить элементами последней строки. N=3. Массив заполняется с клавиатуры.

const n=3;var a:array[1..n,1..n] of integer;i,j,tmp:integer;beginfor i:=1 to 3 do  for j:=1 to 3 do  read(a[i,j]);for j:=1 to 3 doa[1,j]:=a[3,j];for i:=1 to 3 do begin  for j:=1 to 3 do  write(a[i,j]:3);writeln;end;end.