напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв день z месяца.

type

person=record

fam:string;

imya:string;

day:integer;

end;

var

a:array[1 ... 50] of person;

i, n, z:integer;

begin

write ('n=') ; readln (n) ;

for i:=1 to n do

begin

write ('fam-') ; readln (a[i]. fam) ;

write ('imya-') ; readln (a[i]. imya) ;

write ('day-') ; readln (a[i]. day) ;

end;

write ('z-') ; readln (z) ;

for i:=1 to n do

if a[i]. day=z then writeln (a[i]. fam, ' ', a[i]. imya) ;

readln;

end.