Ответ:

program EnterPassword;

const wassword='123pw'; // Верный пароль, заданный константой

var

   userPass: string; // Переменная, в которую будет считываться пароль, введенный пользователем

begin

   while wassword <> userPass do begin // пока пароль, введенный пользователем, не совпадает с правильным

       write('Введите пароль: ');

       readln(userPass); // считываем с клавиатуры пароль от пользователя

       if wassword <> userPass then // пароль верный

           writeln('Пароль неверный')

           else

               writeln('Пароль верный');

   end;

readln

end.

Объяснение: