Dibuat program memasukkan password, misal password = ‘kunci’. selama password tidak sama dengan (<>) ‘kunci’, program akan terus meminta password.

uses wincrt;
 
var username,  password  : string ;
begin
  repeat
    write('username : ');readln(username);
    write('password : ');readln(password);
    writeln('');
  until (username = 'user')and (password ='pass');
  writeln(username, ' , selamat datang');
end.