В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве дет­ских праздников, ко­то­рые про­во­ди­ло кафе за по­след­ний год (Dat[1] — ко­ли­че­ство дет­ских празд­ни­ков в январе, Dat[2] — ко­ли­че­ство празд­ни­ков в фев­ра­ле и т. д.). Что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма Var k, m, d: integer; Dat: array[1..12] of integer; Begin Dat[1] := 2; Dat[2] := 8; Dat[3] := 6; Dat[4] := 3; Dat[5] := 8; Dat[6] := 2; Dat[7] := 3; Dat[8] := 7; Dat[9] := 8; Dat[10] := 3; Dat[11] := 8; Dat[12] := 7; m := Dat[1]; d := 1; for k := 8 to 12 do if Dat[k] > m then begin m := Dat[k]; d := k; end; writeln(d); End.
Задание

В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве дет­ских праздников, ко­то­рые про­во­ди­ло кафе за по­след­ний год \(Dat⟨0⟩ — ко­ли­че­ство дет­ских празд­ни­ков в январе, Dat⟨1⟩ — ко­ли­че­ство празд­ни­ков в фев­ра­ле и т\. д\.\). Что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма

Var k, m, d: integer;
Dat: array

\[1\.\.12\]
of integer;
Begin
Dat
\[1\]
:= 2; Dat
\[2\]
:= 8;
Dat
\[3\]
:= 6; Dat
\[4\]
:= 3;
Dat
\[5\]
:= 8; Dat
\[6\]
:= 2;
Dat
\[7\]
:= 3; Dat
\[8\]
:= 7;
Dat
\[9\]
:= 8; Dat
\[10\]
:= 3;
Dat
\[11\]
:= 8; Dat
\[12\]
:= 7;
m := Dat
\[1\]
;
d := 1;
for k := 8 to 12 do
if Dat
\[k\]
> m then
begin
m := Dat
\[k\]
;
d := k;
end;
writeln\(d\);
End.