Program HelloWorld;
var
i,j,n:integer;
matrice: array of array of integer;
begin
readln(n);
SetLength(matrice, n, n);
for i:=0 to n-1 do
for j:=0 to n-1 do
readln(matrice[i,j]);
for i:=0 to n-1 do
for j:=0 to n-1 do
write(matrice[i,j]);
end.
Explicatie: prima data declari o i,j,n si o matrice bidimensionala
apoi, citesit n-ul, apoi setezi dimensiunea matricei(sau ii) la n*n, apoi, incepi un for, care ia fiecare linie a matricii, si inca un for care ia fiecare spatiu de pe linie, si citesti numere de la tastatura in matrice... Apoi, faci acelasi lucru ca sa le afisezi...
