var a:array[1..100,1..100] of real;
    b,x:array[1..100] of real;
    i,j,k,n:integer;
    z,r,g:real;
begin
write('Vvedite kol-vo uravneniy: ');
read(n);
for i:=1 to n do begin
  writeln('Uravnenie ',i);
  writeln('Vvedite koefficienty');
  for j:=1 to n do begin
      write('a[',i,',',j,']=');
      read(a[i,j]);
     end;
  writeln('Vvedite pravuyu chast uravneniya');
  write('b[',i,']=');
  read(b[i]);
  end;
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:2);
  writeln(b[i]:8:2);
  end;
for k:=1 to n do
     begin
       for j:=k+1 to n do
          begin
            r:=a[j,k]/a[k,k];
            for i:=k to n do
               begin
                 a[j,i]:=a[j,i]-r*a[k,i];
               end;
            b[j]:=b[j]-r*b[k];
          end;
     end;
for k:=n downto 1 do
     begin
       r:=0;
       for j:=k+1 to n do
         begin
           g:=a[k,j]*x[j];
           r:=r+g;
         end;
      x[k]:=(b[k]-r)/a[k,k];
     end;
writeln('Korni sistemy uravneniy:');
for i:=1 to n do
write('x[',i,']=',x[i]:0:2,'   ');
readln;
end.