Program GaussSeidel2;

 uses crt;

var a: array[1..3,1..3] of real;

    b: array[1..3] of real;

    x: array[1..3] of real;

    xx: array[1..3] of real;

   i,ii,j,k,q,p,N:integer;

  begin

    clrscr;

    writeln('Reseni 3 linearnich rovnic o 3 neznamych:');

    for i:=1 to 3 do

      for j:=1 to 3 do begin write('zadej a[',i,j,']:');readln(a[i,j]); end;

    for ii:=1 to 3 do  begin write('zadej b[',ii,']:');readln(b[ii]); end ;



    for ii:=1 to 3 do x[ii]:=b[ii];



    write ('Zadej kolik iteraci chces provest:'); readln(N);



    for k:=1 to N  do

       begin

            

       for i:=1 to 3 do

                     begin

                      xx[i]:=0;

                     for j:=1 to 3 do 



                                      if i<>j then

                                              if i<j then 

                              xx[i]:= xx[i]+(-a[i,j]*x[j])

                                                else

                              xx[i]:= xx[i]+(-a[i,j]*xx[j]);

 

 

                     xx[i]:= (xx[i]+b[i])/a[i,i];

                     end;

       for p:=1 to  3 do x[p]:=xx[p];

       writeln;

       for q:=1 to 3 do write('  ',x[q]:4:5); writeln;

       end;



    writeln;   writeln; 

    repeat until keypressed;

  end.