В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Определите, что будет напечатано в результате выполнения программ:
Program mas7;
var k, m, day: integer;
Dat: array

of integer;
begin
Dat:= 7; Dat:= 2;
Dat:= 3; Dat:= 3;
Dat:= 4; Dat:= 4;
Dat:= 5; Dat:= 5;
Dat:= 7; Dat:= 6;
day:= 1; m:= Dat;
for k:= 2 to 10 do begin
if Dat >= m then begin
m := Dat ;
day:= k
end
end;
write\(day\);
end.