Описать двумерный массив в разделе констант и вывести все четные и положительные числа
Const a: array of integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -555); begin foreach s: integer in a do if (s mod 2 = 0) and (s > 0) then write(s, ' '); end.