Hanya Program Sederhana

Semoga Bermanfaat...

Program STMIK_DB;
uses crt;
Var
Pilih : integer;
q : char;
procedure Password; {Password}
var pass: string;
Begin
 Repeat
 clrscr;
 Write ('Masukkan Password : ');
 readln(pass);
 if (pass='STMIK') or (pass='stmik') then begin
 clrscr;