var X,n: integer;
begin
n:=0;
repeat 
Write ('Значение X= '); 
Readln (X); 
if X <> 111 then
//until X = 111;
Writeln ('Пароль неверный!')
else 
writeln('Молодец!');
inc(n);

until (x=111) or (n=5);
if n=5 then writeln('Максимум 5 попыток');
end.