написать программу паскаль вводится пароль программа получает от пользователя пароль и сравнивает со своим пароль можно вводить 5 раз иначе доступ запрещён

p,g i:integer;writeln('придумайте пароль');readln(p);writeln('введите пароль');readn(g)for i:=5 doIf (g=p) thenbeginwriteln('пароль верный');breakelsewriteln('пароль неверный')