Program zap_13;
Uses Crt;
Const n=10;
Type sprav = record
Fio,adres:string[20];
tel:integer;
end;
Var a : array[1..n] of sprav;
i :byte;
fio2:string;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите фамилию, имя, отчество ');
Readln(fio);
Writeln(' Введите адрес');
Readln(adres);
Writeln('телефон');
Readln(tel);
End;
Writeln('Введите ФИО для поиска');
Readln(fio2);
for i:=1 to n do
with a[I] do
if fio=fio2 then writeln (adres,' ',tel);
Readln;
end.