Блоксхемы оч оч нада!=(( - Turbo Pascal - Ответ 1669513

uses crt;
var
exit:string;
        a,n,pr:array [1..3,1..3] of integer;
        h,k,g,i,l,j,d:integer;
        b,xc,x:array [1..3] of real;
begin
clrscr;
{-----------------------------------------------------}
        
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                readln(A[i,j]);
 
{-----------------------------------------------------}
       
 
        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                write(a[i,j]:4);
                writeln(' ');
        end;
{-----------------------------------------------------}
      
 
        for j:= 1 to 3 do
                read(b[j]);
{-----------------------------------------------------}
        G:=A[1,1]*A[2,2]*A[3,3]+A[1,2]*A[2,3]*A[3,1]+A[2,1]*A[3,2]*A[1,3]-A[1,3]*A[2,2]*A[3,1]-A[1,2]*A[2,1]*A[3,3];
        H:=A[2,3]*A[3,2]*A[1,1];
        D:=G-H;
     
{-----------------------------------------------------}
     
 
        n[1,1]:=a[2,2]*a[3,3]-a[2,3]*a[3,2];
       
 
        n[1,2]:=(a[2,1]*a[3,3]-a[2,3]*a[3,1])*(-1);
       
 
        n[1,3]:=a[2,1]*a[3,2]-a[2,2]*a[3,1];
       
 
        n[2,1]:=(a[1,2]*a[3,3]-a[1,3]*a[3,2])*(-1);
     
        n[2,2]:=a[1,1]*a[3,3]-a[1,3]*a[3,1];
      
 
        n[2,3]:=(a[1,1]*a[3,2]-a[1,2]*a[3,1])*(-1);
     
 
        n[3,1]:=a[1,2]*a[2,3]-a[1,3]*a[2,2];
     
 
        n[3,2]:=(a[1,1]*a[2,3]-a[1,3]*a[2,1])*(-1);
      
 
        n[3,3]:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
        
{-----------------------------------------------------}
 
       
 
        for i:=1 to 3 do
                begin
                        for j:=1 to 3 do
                        write(' ',n[i,j]);
                        writeln;
                end;
{-----------------------------------------------------}
        for i:=1 to 3 do
                for j:=i+1 to 3 do
                        begin
                                k:=n[i,j];
                                n[i,j]:=n[j,i];
                                n[j,i]:=k;
                        end;
{-----------------------------------------------------}
      
 
        for i:= 1 to 3 do
                begin
                        for j:= 1 to 3 do
                                write(' ',n[i,j]);
                                writeln(' ');
                end;
{-----------------------------------------------------}
       
 
        for i:=1 to 3 do
                for j:=1 to 3 do
                        for l:=1 to 3 do
                                pr[i,j]:=pr[i,j]+a[l,i]*n[j,l];
{-----------------------------------------------------}
        for i:=1 to 3 do
        begin
                for j:=1 to 3 do
                        write(pr[i,j]:4);
                        writeln;
        end;
{-----------------------------------------------------}
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                        x[i]:=x[i]+n[i,j]*b[j];
 
        for i:= 1 to 3 do
                xc[i]:=x[i]*(1/d);
    
{-----------------------------------------------------}
       
        for i:=1 to 3 do
                writeln(xc[i]:2:2);
 
end.