Электронный часовой пропускает только знающих пароль (придумайте сами числовой пароль)....

Question

Электронный часовой пропускает только знающих пароль (придумайте сами числовой пароль). Написать программу для часового, который приняв верный пароль, отдаст команды «Распахнуть ворота!», «Оркестр, музыку!», «Проходите!». А для нарушителей команды будут такими: «Тревога!», «Задержать его!». Команды выводятся на экран, причем каждая на новой строке (т.е. на каждой строке должно быть только одно предложение). Помогите пожалуйста в PascalABC.Срочно! Даю 50 баллов

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  if ReadlnString('Пароль?')='1836547290' then
      Writeln('Распахнуть ворота!',NewLine,'Оркестр, музыку!',
      Newline,'Проходите!')
  else Writeln('Тревога!',NewLine,'Задержать его!')
end.