Var
 n,k:Byte;
 Sum:Real;
Begin
 Repeat
  Write('Enter n ("0" to quit): ');
  Readln(n);
  If n>0 then
   begin
    Sum:=0;
    For k:=1 to n do
     Sum:=Sum+Exp((k+1/k)*Ln((k+1)/Sqrt(2*k-1)));
    Writeln('Sum = ',Sum:0:8);
   end;
 Until n=0;
End.

Const
 N0=20;
Type
 Vector=Array[1..N0] of Byte;
Var
 n,i,j,Imin,Imax,Min,Max:Byte;
 M:Array[1..N0] of Vector;
 V:Vector;
 f:Text;
Begin
 Min:=200;
 Max:=0;
 Assign(f,'Matr.txt');
 Rewrite(f);
 Writeln(f,'Initial matrix:');
 Write('n (<',N0,')= ');
 Readln(n);
 Randomize;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     M[i][j]:=Random(100);
     Write(f,M[i][j]:4);
     If M[i][j]<Min then
      begin
       Min:=M[i][j];
       Imin:=i;
      end;
     If M[i][j]>Max then
      begin
       Max:=M[i][j];
       Imax:=i;
      end;
    end;
   Writeln(f);
  end;
 Writeln(f);
 Writeln(f,'Minimal element equal to ',Min,' is in line N',Imin);
 Writeln(f,'Maximal element equal to ',Max,' is in line N',Imax);
 Writeln(f);
 Writeln(f,'Changed matrix:');
 V:=M[Imin];
 M[Imin]:=M[Imax];
 M[Imax]:=V;
 For i:=1 to n do
  begin
   For j:=1 to n do
    Write(f,M[i][j]:4);
   Writeln(f);
  end;
 Close(f);
End.