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

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, ')')       end end.

аааааааааааааа

Объяснение:

аааааааааааааа