Program proverkaparolya;
Var s,pr,i:integer;
Begin
pr:=1234;
writeln('Введите пароль, у Вас 3 попытки');
for i:=1 to 3 do
readln(s);
if s=pr then
writeln('Пароль верный')
else if i<3 then writeln('Пароль неверный, осталось попыток ',3-i);
readln;
End.
Цикл с параметром |