dbquote

program dbquote;
var
username:string;
password:string;
user,pass:string;

BEGIN
username:= 'user';
password:= 'pass';

Writeln('Note: Default username is (user)');
Writeln('Username:');
Readln(username);
Writeln('');

Writeln('Password:');
Readln(password);
Writeln('');
IF password = 'pass' THEN
Writeln('Welcome Master :)')
ELSE
begin
Writeln('Username or password incorrect :(');
Writeln('For more info,Contact Jason +592 264 3114');
end;
END.