Составить программу Паскаль: найти количество чётных и количество нечетных чисел