В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма

Var k, m, day: integer;

 Dat: array[1..7] of integer;

Begin

   Dat[1]:=7;  Dat[2]:=9;

   Dat[3]:=10; Dat[4]:=8;

   Dat[5]:=6;  Dat[6]:=7; 

   Dat[7]:=6;  

   day:= 1; m:=Dat[1];

   for k:=2 to 7 do begin

      if  Dat[k] < m then begin

          m:=Dat  [k]; day:=k

      end

   end

    write(day);

End.