Создать программу с ограниченными попытками ввода пароля. Максимальное количество попыток: 2.
Ввод пароля осуществить в виде теста с полем ввода ответа. Количество вопросов 3. На паскале или делфи.

неправильно чет

Program Parol;const N=2;var x ,i: integer;beginfor i:=1 to N dobeginwriteln('Неверный пароль');readln(x);end;writeln('Verny parol');if i>N thenwriteln('zapret');end.