Программа проверки пароля

var x:integer;
 
begin
  write('Vvesti parol : '); readln(x);
  if (x=9583) or (x=1747) then writeln('Dostyp A,B,C')
  else
  if (x=3331) or (x=7922) then writeln('Dostyp B,C')
  else
  if (x=9455) or (x=8997) then writeln('Dostyp C')
  else writeln('oshibka');
  readln;
 
  { TODO -oUser -cConsole Main : Insert code here }
end.

var x,p:integer;
    f:boolean;
 
begin
 
p:=5;
f:=false;
 
while (p > 0) and (not(f)) do
begin
     p := p - 1;
 
     write('Vvesti parol : '); readln(x);
 
     case x of
          9583,1747:begin writeln('Dostyp A,B,C');  f:=true; end;
          3331,7922:begin writeln('Dostyp B,C');    f:=true; end;
          9455,8997:begin writeln('Dostyp C');      f:=true; end;
          else writeln('Error');
     end;
     
         {
     if (x=9583) or (x=1747) then
        begin
             writeln('Dostyp A,B,C');
             f:=true;
        end
        else
     if (x=3331) or (x=7922) then
        begin
             writeln('Dostyp B,C');
             f:=true;
        end
        else
     if (x=9455) or (x=8997) then
        begin
             writeln('Dostyp C');
             f:=true;
        end
        else writeln('oshibka ostalos popitok: ', p);
        }
end;
 
if f=true
   then writeln('Ok')
   else writeln('blokirovka po IP');
 
end.