Question

можете помочь информатику ​срочно

Answer 1

Язык: pascal

Пароль: 12345

————————————————

program programma;
uses crt;
var password, input:Integer;
begin
password := 12345;
writeln('введите пароль');
readln(input);
if input = password then
writeln('пароль принят')
else
writeln('пароль не принят')
end.