program JianSuo(input,output);
var
  s:array[1..100] of integer;
  i,a:integer;
begin
  for i:=1 to 100 do s[i]:=i;
  write('Input a number:');
  read(a);{ The number to be find in Array }

  i:=0;
  repeat
    begin
      i:=i+1;
      if s[i]=a then writeln('the number is the ',i,' th of the Array.');
      if (s[i]<>a) and (i=100) then writeln('the number is not in the Array.');
    end;
  until (s[i]=a) or (i=100);
end.