Выделите правильные значения так, чтобы программу можно было использовать как «кодовый замок» со значением ключа 1234.

Var password: integer;
Begin
[Repeat / while / for]
[Readln / writeln / random] (password)
[Until / do /[ = 1234; / <1234 / <> 1234;]
[Write / Readln / Random ] ( [‘Замок открыт’ / ‘Замок закрыт’ / ‘Повторите ввод’ ] )
End.