Даны следующие типы данных: type дата= record день: 1..31; месяц: 1..12; год: integer; end; ученик= record имяфамилия: string; датарождения: дата; end; списокуеников= array [1..4] of ученик; напишите программу, которая вводит с клавиатуры данные: фамилии и мена тех, кто родился в день x месяца