PASKAL

Membuat user dan password di paskal

Uses wincrt;                                                     

Const

User=’putra’;

Pass=’1’;

Var  a,b :string;

Begin

Write(‘user : ‘);readln(a);

Write(‘password : ‘);readln(b);

If (user=a) and (pass=b) then

Begin

Write(‘bagus’);

end

Else

Begin

Write(‘maaf program anda salah’);

End;

End.