//Для примера написал программу, которая просит пользователя ввести пароль. В программе ограничено количество попыток ввода пароля до 5, то есть, если пользователь с пяти раз не смог правильно ввести пароль, программа сообщает, что попытки ввода закончились.
//Для этой задачи использовал цикл c постусловием (repeat - until)
const
attempts = 5;
password = '12345';
var
counter: integer;
str: string;
begin
counter := 0;
repeat
write('Введите пароль: ');
readln(str);
if not(str = password) then
begin
counter := counter + 1;
writeln('[неверный пароль] осталось попыток: ', attempts - counter);
writeln();
end;
if (counter = attempts) then
begin
writeln('Попытки ввода закончились!');
break;
end;
until (str = password);
if (str = password) then
writeln('Вы ввели правильный пароль!');
end.
