J3r!t@n si R14

Program Login;
Uses crt;
Var
nama,pwd,angka : string;
Begin
Clrscr;
angka :='123';
Gotoxy(25,10); Writeln('======================');
Gotoxy(25,11); Writeln(' L O G I N ');
Gotoxy(25,12); Writeln('======================');
Gotoxy(25,13); Write ('Nama : ');
Gotoxy(25,14); Write ('Password : ');
Gotoxy(25,15); Writeln('======================');
Gotoxy(37,13); Readln(nama);
IF nama='Admin' THEN
Begin
   Gotoxy(37,14); Readln(pwd);
   IF pwd = concat(nama,angka) THEN
   Begin
    Gotoxy(35,16); Writeln('Terima Kasih');
   End
   Else
    Begin
     Gotoxy(25,16);
     Writeln('Masukkan Nama dan Password Anda');
     Gotoxy(25,17);
     Writeln('dengan benar');
    End
End
Else
  Begin
   Gotoxy(37,13); Writeln('Ulangi Lagi');
   Readln;
  End;
Readln;
End.