Скласти програму здійснення доступу за паролем (вхід за вгаданим паролем, 5 спроб, пароль 7, але за потреби можна міняти):
program parol;
var y,x,n,i: integer;
begin
y:=7;
for i:=1 to 5 do
begin
writeln ('vvedit parol');
readln (x);
if x=y then
begin
writeln ('pravelno');
exit;
end
else
writeln ('nevirno');
end;
i:=i+1;
writeln ('sprob bilshe nemae');
readln
end.