Задание
Begin
Dat
Dat
Dat
Dat
day := 1;
m := Dat
for k := 2 to 7 do
if Dat
begin
day := k;
m := Dat
end;
writeln\(day\);
End.
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
if Dat
\[k\]
< m thenbegin
day := k;
m := Dat
\[k\]
;end;
writeln\(day\);
End.
Что выведет программа?