Koding Login (pasword) dengan Pascal

   Pernahkah anda memasukan pasword saat akan login atau mengakses sesuatu? Dan setelah beberapa kali memasukan pasword yang salah, maka tidak bisa memasukan pasword lagi untuk beberapa saat? Program semacam itu bisa juga dibuat dengan bahasa pemrograman pascal. Ini dia kodenya :
uses crt;
var pas:string;
    i:integer;
begin
clrscr;
i:=3;

     while i>=1 do begin
     write('masukan password = ');readln(pas);
     if (pas<>'1234') and (i>=2) then
     writeln('password salah,kesempatan ',i-1,' lagi');
     if (pas<>'1234') and (i=1) then
     writeln('kesempatan habis, silakan keluar') ;
     if pas='1234' then begin
     writeln('password benar');
     i:=0;
     end;
i:=i-1;
end;
readln;
end.


Selamat mencoba...