procedure aggiunta;
(* matrice aggiunta *)
var a11,a12,a13,a21,a22,a23,a31,a32,a33:real;
    d11,d12,d13,d21,d22,d23,d31,d32,d33:real;
begin
clrscr;
writeln('scrivi elementi separati da spazio o enter ');
writeln('scrivi elementi prima riga');
readln(a11,a12,a13);
writeln('scrivi elementi seconda riga');
readln(a21,a22,a23);
writeln('scrivi elementi terza riga');
readln(a31,a32,a33);
clrscr;
d11:=a22*a33-a32*a23;
d12:=a21*a33-a31*a23;
d13:=a21*a32-a31*a22;
d21:=a21*a33-a32*a13;
d22:=a11*a33-a31*a13;
d23:=a11*a32-a31*a12;
d31:=a12*a23-a22*a13;
d32:=a11*a23-a21*a13;
d33:=a11*a22-a21*a12;
writeln;
writeln('matrice originaria');
writeln(a11:10:2,a12:10:2,a13:10:2);
writeln(a21:10:2,a22:10:2,a23:10:2);
writeln(a31:10:2,a32:10:2,a33:10:2);
writeln;
writeln('matrice aggiunta');
writeln(d11:10:2,-d12:10:2,d13:10:2);
writeln(-d21:10:2,d22:10:2,-d23:10:2);
writeln(d31:10:2,-d32:10:2,d33:10:2);
writeln;
writeln('premi enter');
readln;
end;

scrivi elementi separati da spazio o enter
scrivi elementi prima riga
1 2 3
scrivi elementi seconda riga
4 5 6
scrivi elementi terza riga
7 8 9



matrice originaria
      1.00      2.00      3.00
      4.00      5.00      6.00
      7.00      8.00      9.00

matrice aggiunta
     -3.00      6.00     -3.00
    -12.00    -12.00      6.00
     -3.00      6.00     -3.00

inizio