var S : string;
begin
Writeln(’Пароль? ’); Readln(S);
if S = ’pascal’ then begin
Writeln(’Распахнуть ворота! ’);
Writeln(’Оркестр, музыку! ’);
Writeln(’Проходите! ’)
end else begin
Writeln(’Тревога! ’);
Writeln(’Задержать его! ’)
end;
Writeln(’Нажмите Enter’); Readln;
end.