Part 2 : Program Login;

uses wincrt;
Var
id, id2, pass, pass2: String;

Begin
Write ('User Name: '); Readln(id);
Write ('Password : '); Readln(pass);
Clrscr;

Repeat
Begin
Write ('Masukkan User Name: '); Readln(id2);
Write ('Masukkan Password : '); Readln(pass2);
Writeln;
Begin
If (id=id2) and (pass=pass2) Then
Writeln ('Selamat Anda Masuk')
Else
If (id=id2) and (pass<>pass2) Then
Writeln ('Maaf Password anda salah ')
Else
Writeln ('Anda Belum Terdaftar');
End;
Writeln;
End;
Until (id=id2) and (pass=pass2);
End.

Hasil :