program gotos_program; uses crt; const n = 3; type tomb_tipus = array[1..n,1..n] of byte; procedure kiir(x,y:integer; t: tomb_tipus); var i,j:integer; begin for i:=1 to 3 do for j:=1 to 3 do begin gotoxy(x+3*j,y+i); write(t[i,j]); end; end; var i,j:integer; const a: tomb_tipus = ((1,2,4),(5,6,7),(8,9,1)); b: tomb_tipus = ((2,3,6),(2,3,7),(1,3,0)); begin kiir(1,1,a); kiir(12,1,b); for i:=1 to 3 do for j:=1 to 5 do kiir(j*11+1,i*5+1,b); readln; end.