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

of integer;
Begin
Dat := 2; Dat := 8;
Dat := 6; Dat := 3;
Dat := 8; Dat := 2;
Dat := 3; Dat := 7;
Dat := 8; Dat := 3;
Dat := 8; Dat := 7;
m := Dat;
month := 1;
for k := 8 to 12 do
if Dat > m then
begin
m := Dat;
month := k;
end;
writeln\(month\);
End.