{Preenche uma matriz 3x3 de modo que a entrada aij = i + j}
Program exemplo_matriz;
Var
matriz: array[1..3, 1..3] of integer;
i, j: integer;
Begin
clrscr;
i:=1;
j:=1;
for j:= 1 to 3 do
Begin
for i:= 1 to 3 do
Begin
matriz[i,j]:=i + j;
write(matriz[i,j],' ');
End;
gotoxy(1, j+1);
End;
End.