Login

program login;
uses wincrt;
var
na,pa,nb,pb:string;
ul:char;
begin
writeIn;
gotoxy (35,8);writeln('Registration');

write('Masukkan nama     : ');readln(na);
write('Masukkan password : ');readln(pa);
clrscr;
writeln('*****************************************');
writeln('* Selamat bergabung dengan kami         *');
writeln('* Selalu ingat nama dan password anda ! *');
writeln('*****************************************');
writeln;
writeln('***********************************');
writeln('* Ingin langsung login ?          *');
writeln('***********************************');
writeln;
write('Nama anda     :');readln(nb); 
write('Password anda :');readln(pb);
if(nb=na)and(pb=pa)then
begin
writeln('************************************');
writeln('*   Welcome !! Selamat datang !!   *');
writeln('************************************');
end
else if(nb=na)and(pb<>pa)then
begin
writeln('***********************************************');
writeln('*   Maaf, password yang anda masukkan salah   *');
writeln('***********************************************');
end
else if(nb<>na)and(pb=pa)then
begin
writeln('******************************************');
writeln('*   Nama atau password anda salah        *');
writeln('******************************************');
end
else
begin
writeln('" Error "');
end;
end.