PROGRAM Pencarian;

uses
    wincrt;
     
const 
    Nmaks = 100;
type
    LarikInt = array[1..Nmaks] of integer;

ar
 A   : LarikInt;
 n   :  integer;
  x   : integer;   { nilai yang dicari }
  idx : integer;   { indeks elemen larik yang mengandung x }
   
Procedure BacaLarik1(var A : LarikInt; n : integer);
var
     i : integer;

begin
   for i:=1 to n do
      begin
     write('masukan nilai ke-',i); readln(A[i]);
      end;
end;

 { mengisi elemen larik A[1..n] dengan cara pembacaan}
Procedure CariX_versi1(A :LarikInt; n : integer;  x :integer; var idx : integer);
{ mencari posisi x di dalam  LArik A[1..n]}
   var
    i : integer;

   begin
      i:= 1;
      while(i<n) and (A[i]<>x) do
      begin
          i:=i+1;
      end;

      if A[i]=x then
      begin
         idx:=i;
      end
      else begin
         idx:=0;

      end;

      end;
BEGIN
  
   write('masukan banyaknya elemen array:'); readln(n);      {tentukan elemen larik}
BacaLarik1(A,n);

write('masukkan nilai yang akan dicari :'); readln(x);
CariX_versi1(A,n,x,idx);
if idx=0 then
   begin
   write('tidak ditemukan')
       end
   else 
  begin
  write('ditemukan pada indeks ke- ',idx)  
     end;
    
END.