var ar: array of integer; ar[0] := 2; ar[1] := 4; ar[2] := 6; ar[3] := 8; write(ar[1], ar[2]); ?
1000 ms 32 Mb Правила оформления программ и список ошибок при автоматической проверке задач