даны следующие типы данных:
type Дата= record
День:1..31;
Месяц: 1..12;
Год: integer;
end;
Ученик= record
ИмяФамилия:string;
ДатаРождения:Дата;
end;
СписокУеников= array [1..4] of Ученик;

Напишите программу, которая вводит с клавиатуры данные: фамилии и мена тех, кто родился в день x месяца