matrizaula

program Untitled;
const
linhas=4;
colunas=4;
var mat1,mat2:array[1..linhas,1..colunas]of real;
i,j:integer;
begin

    //Leitura
     for i:=1 to linhas do
     begin
          for j:=1 to colunas do
          begin
               write('mat1[ ',i,',',j,']=');
               readln(mat1[i,j]);
          end;

     end;

     //exibindo mat1 na tela
     for i:=1 to linhas do
     begin
          for j:=1 to colunas do
          begin
               write(mat1[i,j]:5:2,'  ');

          end;
         writeln();
     end;

     //mat 2 recebe mat1
     for i:=1 to linhas do
     begin
          for j:=1 to colunas do
          begin
               mat2[i,j]:=mat1[i,j];
          end;
     end;
     writeln();
     //exibindo mat2
     for i:=1 to linhas do
     begin
          for j:=1 to colunas do
          begin
               write(mat2[i,j]:5:2,'  ');

          end;
         writeln();
     end;
     //exibindo diagonal principal
        begin
          for j:=1 to colunas do
          begin
               write(mat2[i,j]:5:2,'  ');

          end;
         writeln();
     end;
     readln();
end.