Только ответ! 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.