Напишите программу угадывания пароля с использованием цикла WHILE(повторять ввод пароля пользователем, пока он не совпадёт с тем, который "зашифрован в программе")

var

pin : integer;

readPin : integer;

begin

 pin := 1234; //здесь напишешь  свой пин

  writeln('Write Pin :');

 readln(readPin);

 while readPin <> pin do begin

   writeln('Error wrong pin!');

   readln(readPin);

 end;

end.

Вот