type sl =array[1..10] of char;
nomtel =1000000..9999999;
znak=record
bam:ssl;
nom:nomtel;
end;
str=array[1..20] of znak;
zapkn=array[a..z] of str;
Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с буквы - индекса этой страницы, написать программу, которая будет определять, есть ли в записной книжке ЗП данные о знакомом, который имеет телефон с номером НТ, если есть, то напечатать фамилию этого знакомого. Введите несколько фамилий в записную книжку, выполните программу и введите результат.