Const
 NofY=10; {number of years}

Var
 T:Array[1..NofY,1..12] of Integer;
 Names:Array[1..12] of String;
 MinTemp:Array[1..NofY] of Integer;
 Jmin:Array[1..NofY] of Byte;
 i,j:Byte;

Begin
 Names[1]:='January';
 Names[2]:='February';
 Names[3]:='March';
 Names[4]:='April';
 Names[5]:='May';
 Names[6]:='June';
 Names[7]:='July';
 Names[8]:='August';
 Names[9]:='September';
 Names[10]:='October';
 Names[11]:='November';
 Names[12]:='December';
 Randomize;
 Writeln('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;
 for i:=1 to NofY do
  begin
   Jmin[i]:=1;
   MinTemp[i]:=T[i,1];
   for j:=2 to 12 do
    if T[i,j]<MinTemp[i] then
     begin
      MinTemp[i]:=T[i,j];
      Jmin[i]:=j;
     end;
  end;
 writeln('Minimal:');
 for i:=1 to NofY do
  writeln(i+2019,MinTemp[i]:6,'   ',Jmin[i]:2,' ('+Names[Jmin[i]]+')');
 Readln
End.