Program Jacobi;

 uses crt;

const N=50;

var  a11,a12,a13,a21,a22,a23,a31,a32,a33,b1,b2,b3,x,y,z,x2,y2,z2:real;

       i:integer;

  begin

clrscr;

    read(a11, a12, a13, b1, a21, a22, a23, b2, a31, a32, a33, b3);

    x:=0.0;   y:=0.0;  z:=0.0;  

    for i:=1 to N  do

      begin

       x2:=(-a12*y-a13*z+b1)/a11;

       y2:=(-a21*x-a23*z+b2)/a22;

       z2:=(-a31*x-a32*y+b3)/a33;

       x:=x2;    y:=y2;    z:=z2;

       writeln;   write(x:4:5,'  ');  write(y:4:5,'  ');  write(z:4:5,'  ');  delay(500);

      end;

    writeln;   writeln; 

repeat until keypressed;                          

  end.