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.