program Tests;

const
     CRLF : string = #10 + #13;
     validuser = 'chris';
     validpass = 'pie';

var
   username : string;
   password : string;

begin
    write('Username: ');
    readln(username);

    write('Password: ');
    readln(password);

    if (username = validuser) then
    begin
         if (password = validpass) then
         begin
              writeln('Welcome Chris!');
         end
         else
         begin
              writeln('Incorrect password!');
         end;

    end
    else
    begin
         writeln('Could not find user ''', username, ''' in database!');
    end;

    readln();
end.