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.
Идея проверки имени и пароля при входе. |