Program Password Sederhana dengan Pascal

Nah, berikut ini adalah contoh program password sederhana dengan menggunakan bahasa Pascal. Program ini masih sangat sederhana, jadi buat yang udah pinter jangan ketawa yach? hehe.. oke dech, langsung aja nih source code programnya:

program password;
uses wincrt;

{password program ini, silahkan diubah sesuai keinginan}
const
b = 'asyik';

var
a : string;
n : integer;

{prosedur jika user benar memasukkan password}
procedure benar;
begin
if a = b then
begin
clrscr;
writeln('==================');
writeln('Akses diterima ^_^');
writeln('==================');
n:=3;
readln;
end;
end;

{prosedur jika user salah memasukkan password}
procedure salah;
begin
if a <> b then
begin
writeln('Password salah!');
writeln('===============');
n:=n+1;
end;
end;

{prosedur untuk menampilkan peringatan}
procedure peringatan;
begin
if n = 2 then
begin
clrscr;
writeln('              Anda salah 2 kali');
writeln('Satu kali lagi salah maka program akan mati!!');
writeln('=============================================');
end;
end;

{program utama}
begin
n:=0;
repeat
write('Masukkan Password : ');readln(a);
benar;
salah;
peringatan;
until n = 3;
donewincrt;
end.