program TurboPascal;

var
employees: array[1..20] of string = ('Иванов', 'Петров', 'Сидоров', 'Кузнецов', 'Смирнов',
'Новиков', 'Морозов', 'Волков', 'Лебедев', 'Соколов',
'Козлов', 'Павлов', 'Васильев', 'Зайцев', 'Соловьев',
'Головин', 'Кравцов', 'Белов', 'Тарасов', 'Андреев');
surnameToFind: string;
i: integer;
found: boolean;

begin
writeln('Введите фамилию сотрудника:');
readln(surnameToFind);

found := false;
for i := 1 to 20 do
begin
if employees[i] = surnameToFind then
begin
writeln('Номер сотрудника с фамилией ', surnameToFind, ' - ', i);
found := true;
break;
end;
end;

if not found then
writeln('В списке не значится');
end.