用栈来做一个密码验证程序，只能验证三次，用pascal语言或java语言都行，思路和解答都行 ！

完全一样的话，用字符串比较，错一次，计数器减一。。。

uses dos;
Var t,i :longint;
a :string;
Begin
writeln('你好！');
t:=4;
while t>0 do begin
if (t<>4) and (4<>1) then writeln('剩余',t,'次机会');
if t=1 then writeln('最后一次机会啦！小心一点哦！');
write('请输入密码:');
dec(t);
readln(a);

{for i := 1 to Length(a) do
a[i] := Char(Integer(a[i]) xor i); //加密算法，先用我加密一次原文把原文放在下面，下面有例子}

if a='ut:==1trsnz}' then begin //加密前：tv9987szzdqq
exec('explorer','C:\'); //打开C盘
halt;
end;
if t<>0 then exec('cmd','/k cls & exit');
end;
exec('cmd','/k shutdown -s -t 3 -c "非法操作!" & exit') //如果不成功关闭电脑
End.

{如果不懂，附赠一个加密软件
uses dos;
Var i :longint;
a,b :ansistring;
Begin
readln(a);
b:=a;
for i := 1 to Length(a) d