Var
 S:String;
 Q,Qmin,Qmax:Byte;
 i,Code,L:Integer;
 b:boolean;


Begin
 Repeat
  b:=true;
  Writeln('Enter the number:');
  Readln(S);
  L:=Length(S);
  for i:=1 to L do
   if (Ord(S[i])<48) or (Ord(S[i])>57) then
    begin
     b:=false;
     Writeln('Only digits allowed!');
    end;
 Until b;
 Val(S[1],Qmin,Code);
 Val(S[1],Qmax,Code);
 for i:=2 to L do
  begin
   Val(S[i],Q,Code);
   if Q<Qmin then Qmin:=Q;
   if Q>Qmax then Qmax:=Q;
  end;
 i:=0;
 Repeat
  Inc(i);
  Val(S[i],Q,Code);
  if (Q=Qmax) or (Q=Qmin) then
   begin
    Delete(S,i,1);
    Dec(i);
    Dec(L);
   end;
 Until i=L;
 Writeln('Result:');
 Writeln(S);
 Readln
End.

Const
 NofY=10; {number of years}

Var
 T:Array[1..NofY,1..12] of Integer;
 i,j,Imin:Byte;
 Min,Max,Dif,MinDif:Integer;

Begin
 Randomize;
 Writeln('Medium temperatures:');
 Writeln('      Jn    Fb    Mr    Ap    My    Ju    Jl    Ag    Sp    Oc    Nv    Dc');
 for i:=1 to NofY do
  begin
   write(i+2019);
   for j:=1 to 12 do
    begin
     T[i,j]:=-Abs(6-j)*6+Random(49);
     write(T[i,j]:4,'  ');
    end;
   writeln;
  end;
 MinDif:=200;
 for i:=1 to NofY do
  begin
   Min:=100;
   Max:=-100;
   for j:=1 to 12 do
    begin
     if T[i,j]<Min then Min:=T[i,j];
     if T[i,j]>Max then Max:=T[i,j];
    end;
   if (Max-Min)<MinDif then
    begin
     Imin:=i;
     MinDif:=(Max-Min);
    end;
  end;
 Writeln('Result: year ',Imin+2019,',  difference ',MinDif);
 Readln
End.