註：Pascal中“writeln”是整行輸出，“readln”是整行輸入，賦值語句為“:=”，“' '”表示字符串，相當於VB或VC裏的“" "”
var
password,times,input:longint;
Begin
times:=3;{這裏是剩余次數}
password:=12345;{這裏是密碼}
repeat
readln(input);
if input <>password then
if times<1 then{確認沒機會時}
begin
writeln('You Can't Input Anymore!');{不允許再輸入信息}
halt;{強退，可根據需求更改}
end
else {還有times次機會時}
begin
times:=times-1;
writeln('Wrong Password! You have ',times,' times left!');{顯示錯誤並提示剩余機會}
end;
until input=password;
writeln('Right Password!');{輸入正確}
End.
大概是整樣了。這只是壹個算法，沒試過，希望壹次編譯通過。
還有，縮進縮得不好，沒有用軟件寫來的方便（這段代碼是在網頁上寫的）。呵呵