распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения
написать программу в паскале

const  n=8;var  aNam, aFam, aDat: array[1..n] of string;  i: integer;begin  aNam[1]:='Олег'; aFam[1]:='Бубенков'; aDat[1]:='1993';  aNam[2]:='Игорь'; aFam[2]:='Бросов'; aDat[2]:='1991';  aNam[3]:='Тимур'; aFam[3]:='Наружный'; aDat[3]:='1961';  aNam[4]:='Анастасия'; aFam[4]:='Боброва'; aDat[4]:='1985';  aNam[5]:='Михаил'; aFam[5]:='Тапаров'; aDat[5]:='1957';  aNam[6]:='Евгений'; aFam[6]:='Костарева'; aDat[6]:='1992';  aNam[7]:='Мария'; aFam[7]:='Никитин'; aDat[7]:='1977';  aNam[8]:='Ксения'; aFam[8]:='Бабенкова'; aDat[8]:='1978';  writeln('Лица, чьи фамилии начинаются на букву "Б"');  for i := 1 to n do    if aFam[i][1] = 'Б' then      writeln(aNam[i],' ',aFam[i], ' (', aDat[i], ')')end.тестовый прогон:Лица, чьи фамилии начинаются на букву "Б"Олег Бубенков (1993)Игорь Бросов (1991)Анастасия Боброва (1985)Ксения Бабенкова (1978)Возможна также более "современная" запись программы---------------------------------------------------------------------------------------const  n = 8;type  tP = record    Nam: string;    Fam: string;    Dat: string  end;var  M: array[1..n] of tP;  i: integer;begin  with M[1] do begin Nam := 'Олег'; Fam := 'Бубенков'; Dat := '1993' end;  with M[2] do begin Nam := 'Игорь'; Fam := 'Бросов'; Dat := '1991' end;  with M[3] do begin Nam := 'Тимур'; Fam := 'Наружный'; Dat := '1961' end;  with M[4] do begin Nam := 'Анастасия'; Fam := 'Боброва'; Dat := '1985' end;  with M[5] do begin Nam := 'Михаил'; Fam := 'Тапаров'; Dat := '1957' end;  with M[6] do begin Nam := 'Евгений'; Fam := 'Костарева'; Dat := '1992' end;  with M[7] do begin Nam := 'Мария'; Fam := 'Никитин'; Dat := '1977' end;  with M[8] do begin Nam := 'Ксения'; Fam := 'Бабенкова'; Dat := '1978' end;  writeln('Лица, чьи фамилии начинаются на букву "Б"');  for i := 1 to n do    With M[i] do begin      if Fam[1] = 'Б' then        writeln(Nam, ' ', Fam, ' (', Dat, ')')    endend.