Составить программу "простейший справочник".

{В Turbo Pascal 7.0 нет операторов DATA ... READ информацию придется вводить в массивы в разделе описания констант. Методом присвоения в цикле, через оператор readln Методом присвоения (для небольших массивов)}

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.