Напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв день z месяца.
Телефон, запатентованный в США 1876 году, Александром Беллом, назывался «говорящий телеграф». Трубка Белла служила по очереди и для передачи, и для приёма человеческой речи. В телефоне А. Белла не было звонка, позже он был изобретён коллегой А. Белла — Т. Ватсоном 1878 год. Вызов абонента производился через трубку при свистка. Дальность действия этой линии не превышала 500 метров.
Александр Белл подал заявку в Вашингтонское патентное бюро на свое изобретение 14 февраля 1876 года. Двумя часами позже заявку на «Устройство для передачи и приема вокальных звуков телеграфным подал Э. Грей из Чикаго.
7 марта 1876 года Александром Беллом был получен патент на изобретение телефона. Любопытно, что А. Белл пытался изобрести не телефон, а «гармонический телеграф». В то время в телеграфии испытывался огромный дефицит линий. 25 июня 1876 года. Александр Белл впервые продемонстрировал свой телефон на первой Всемирной электротехнической выставке в Филадельфии.
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.