Program Gauss_Seidel; uses crt; const N=20; var a11,a12,a13,a21,a22,a23,a31,a32,a33,b1,b2,b3,x,y,z,x2,y2,z2:real; i:integer; begin read(a11, a12, a13, b1, a21, a22, a23, b2, a31, a32, a33, b3); x:=b1; y:=b2; z:=b3; for i:=1 to N do begin x2:=(-a12*y-a13*z+b1)/a11; y2:=(-a21*x2-a23*z+b2)/a22; z2:=(-a31*x2-a32*y2+b3)/a33; x:=x2; y:=y2; z:=z2; writeln; write(x:4:5,' '); write(y:4:5,' '); write(z:4:5,' '); end; writeln; writeln; repeat until keypressed; end.