В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в

В таблице 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] lt; m then begin

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

end

end

write(day);

End.