Появилась вот такая идея. Но почему-то не работает. Просьба помочь.
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 login, password: String;
Проблема с Begin - End. Проверь количество пар
Я делал так:
var
par,login:string;
begin
write('введите пароль');
readln(par);
writeln('введите логин');
readln(login);
if(par='ваш пароль')and(login='ваш логин')then
writeln('hello')
end.