Только ответ!
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17;
Pos[2] := 19;
Pos[3] := 20;
Pos[4] := 18;
Pos[5] := 16;
Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] > m then
begin
m := Pos[k];
day := k end;
write(day);
end.