寫一程式仿金融卡提款，從鍵盤輸入帳號與密碼，若正確就顯示帳號與密碼正確可進行提款(預設帳號為你的學號,密碼為IMD12345)，若錯誤則顯示帳號與密碼錯誤，還有幾次輸入機會(共有六次輸入之機會)。

atm.pl

:- set_prolog_flag(verbose, silent).
:- initialization(main).

帳號(學號). 密碼("IMD12345").

登入(Account, Password):-
    帳號(Account), 密碼(Password),
    write("帳號與密碼正確可進行提款"), nl.

登入:-
    write("輸入帳號"), nl,
    read(Account),
    write("輸入密碼"), nl,
    read(Password),
    登入(Account, Password).

登入([]):-
    登入;
    write("請聯絡客服中心，歡迎再度光臨。"), nl.

登入(Try):-
    登入;
    [Count | Chance ] = Try,
    write("帳號與密碼錯誤，還有"), write(Count), write("次輸入機會"), nl,
    登入(Chance).

main:-
    登入([五, 四, 三, 二, 一]),
    halt.

swipl atm.pl
輸入帳號
|: 1.
輸入密碼
|: 1.
帳號與密碼錯誤，還有五次輸入機會
輸入帳號
|: 學號.
輸入密碼
|: IMD12345.
帳號與密碼正確可進行提款

swipl atm.pl
輸入帳號
|: 1.
輸入密碼
|: 1.
帳號與密碼錯誤，還有五次輸入機會
輸入帳號
|: l.
輸入密碼
|: l.
帳號與密碼錯誤，還有四次輸入機會
輸入帳號
|: l.
輸入密碼
|: l.
帳號與密碼錯誤，還有三次輸入機會
輸入帳號
|: l.
輸入密碼
|: l.
帳號與密碼錯誤，還有二次輸入機會
輸入帳號
|: l.
輸入密碼
|: l.
帳號與密碼錯誤，還有一次輸入機會
輸入帳號
|: l.
輸入密碼
|: l.
請聯絡客服中心，歡迎再度光臨。