program p61;
uses crt;
const n=3;
a:array[1..n] of string=('Иванов', 'Петров','Сидоров');
c:array[1..n] of string=('911-11-11','911-22- 22','911-33-33');
var b:string;
i:integer;
begin
clrscr;
writeln('b=');readln(b);
for i:=1 to n do
if a[i]=b then writeln (a[i],' ' ,c[i]);
readln;
end.