Электронный часовой пропускает только знающих пароль (придумайте сами числовой пароль). написать программу для часового, который приняв верный пароль, отдаст команды «распахнуть ворота! », «оркестр, музыку! », «проходите! ». а для нарушителей команды будут такими: «тревога! », «задержать его! ». команды выводятся на экран, причем каждая на новой строке (т.е. на каждой строке должно быть только одно предложение). в pascalabc.! 50
Внимание! Если программа не работает, обновите версию!
begin
if ReadlnString('Пароль?')='1836547290' then
Writeln('Распахнуть ворота!',NewLine,'Оркестр, музыку!',
Newline,'Проходите!')
else Writeln('Тревога!',NewLine,'Задержать его!')
end.