listing Program Login pd Pascal

 procedure login;

 var
   user,pass,u,p:string;
   x,i:integer;

 begin
     clrscr;
     user:='13020110018';
     pass:= '13020110018';
     x:=0;
     for i:=1 to 3 do
     begin
          writeln('Tolong masukkan nama dan password');
          writeln('==============================');
          writeln;
          write('Nama     : ');readln(u);
          write('Password : ');readln(p);
          if user=u then
          begin
               if p=pass then
               begin
                    x:= 1;
                    break;
               end;
          end;
          clrscr;
          writeln('Nama dan password tidak cocok');
          writeln;
     end;
     clrscr;
     if x=0 then
        writeln('Maaf akun anda di blokir')
     else if x=1 then
        writeln('Selamat datang di Elektronik mark, ',user,'!');
     readln;
     end;