Presupun ca fisierul IN.txt contine si numarul de linii/coloane

______________________________________

program p1;

var

 i, j, n, suma: integer;

 matrice: array[1..100, 1..100] of integer;

 f1, f2, f3: text;

begin

 Assign( f1, 'IN.txt' );

 Assign( f2, 'OUT1.txt' );

 Assign( f3, 'OUT2.txt' );

 Reset( f1 );

 rewrite( f2 );

 rewrite( f3 );

 { citire latura matricii }

 readln( f1, n );

 {  citire matrice }

 for i := 1 to n do

   for j := 1 to n do

     Read( f1, matrice[i, j] );

 {   scriere diagonala principala in OUT1.txt }

 for i:=1 to n do

   writeln( f2, matrice[i,i] );

 { calculare suma diagonala secundara }

 suma:=0;

 for i:=1 to n do

   suma:=suma + matrice[n-i+1, i];

 { scriere suma in fisierul OUT2.txt }

 write( f3, suma );

 { inchidere fisiere }

 Close( F1 );

 Close( F2 );

 Close( F3 );

end.