const
password = '123AB';
var
s:string;
begin
repeat
readln(s);
if s <> password then
writeln('Неверный пароль');
until s = password;
writeln('Пароль введен верно');
end.
const
password = '123AB';
var
s:string;
begin
repeat
readln(s);
if s <> password then
writeln('Неверный пароль');
until s = password;
writeln('Пароль введен верно');
end.