Создать программу с ограниченными попытками ввода пароля. максимальное количество попыток: 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.