Соператора repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение "молодец"!

Program Repeat;
varX: integer;
begin
repeat 
Write ('Значение X= '); 
Readln (X); 
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
end.