Program login;
var login, password: char;
begin
writeln('Введите имя и пароль');
readln(login, password)
end;
while (login <> 'username') and (password <> 'parol')
do begin
writeln('Hello World!');
readln;
End.

 var 
par,login:string;
begin
write('введите пароль');
readln(par);
writeln('введите логин');
readln(login);
if(par='ваш пароль')and(login='ваш логин')then
writeln('hello')
end.