Задание

В таб­ли­це 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.