Program N1;

Var
 X,Y,Z:Real;

Function Max_2(a,b:real):real;
begin
 if a>b then Max_2:=a else Max_2:=b;
end;

Function Max_3(a,b,c:real):real;
var d:real;
begin
 d:=Max_2(a,b);
 if d>c then Max_3:=d else Max_3:=c;
end;

Begin
 Write('X = ');
 Readln(X);
 Write('Y = ');
 Readln(Y);
 Write('Z = ');
 Readln(Z);
 Writeln((Max_3(X*Y,Y*Z,X*Z)+20):0:5);
End.

Program N2;

Var
 Num,L,i,Min,m:Integer;

Begin
 Write('Enter the number: ');
 Readln(Num);
 if Num=0 then Min:=0 else
  begin
   Min:=9;
   L:=Trunc(Ln(Num)/Ln(10))+1;
   for i:=1 to L do
    begin
     m:=Num mod 10;
     if m<Min then Min:=m;
     Num:=Num div 10;
    end;
  end;
 Writeln('Minimal figure is ',Min);
End.

Program N3;

Const
 N=12;

Var
 A:Array[1..N] of Integer;
 i,temp,Max,Imax:Integer;

Begin
 Randomize;
 Writeln('Initial array:');
 Imax:=1;
 A[1]:=Random(100);
 Write(A[1]:4);
 Max:=A[1];
 for i:=2 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
   if A[i]>Max then
    begin
     Max:=A[i];
     Imax:=i;
    end;
  end;
 writeln;
 writeln;
 Writeln('New array:');
 temp:=A[Imax];
 A[Imax]:=A[N];
 A[N]:=temp;
 for i:=1 to N do write(A[i]:4);
End.

Program N4;

Const
 eps=0.0001;

Var
 n,k:Integer;
 Y_old,Y_new,Delta:Real;

Begin
 n:=12;
 Y_old:=(1+1/n);
 k:=1;
 Repeat
  n:=n+10;
  Inc(k);
  Y_new:=Y_old*(1+1/n);
  Delta:=Y_new-Y_old;
  Y_old:=Y_new;
 Until Delta<=eps;
 Writeln('Y = ',Y_new:0:5);
 Writeln('k = ',k);
 Writeln('Last = ',(1+1/n):0:15);
End.