Dat: array(1..101 of integer,BeginDat (1) - 2; Dat (2] :2;Dat (3)

Dat: array(1..101 of integer,
Begin
Dat (1) - 2; Dat (2] :2;
Dat (3) : 3; Dat (4) : 3;
Dat (5) - 4; Dat (6) :- 4;
Dat (7): 5; Dat (8) - 5;
Dat (9) := 6; Dat(10) - 6;
m : - Dat(1);
day :- 1;
for k:- 2 to 10 do
if Dat(k) gt; m then
begin
m :- Dat (k):
day :- k;
end;
writeln (day);
End.