with ada.text_io; 
use ada.text_io; 
 
procedure linker is 
   type tomb is array(integer range <>) of integer; 
   i : integer; 
   s : string(1..4); 
   h : integer; 
begin 
   --adatok beolvasasa 
   put("A tomb merete: "); 
   get_line(s,h); 
   i := integer'value(s(1..h)); 
   declare 
      t : tomb(1..i); 
      j : integer := 0; 
      b : boolean := false; 
      x : integer; 
   begin 
      for k in 1..i loop 
         put("t[" & integer'image(k) & "] = "); 
         get_line(s,h); 
         t(k) := integer'value(s(1..h)); 
      end loop; 
      put("A keresett elem: "); 
      get_line(s,h); 
      x := integer'value(s(1..h)); 
       
      --itt kezdodik a linker 
      while (not b) and (j < i) loop 
         b := t(j+1) = x; 
         j := j + 1;          
      end loop; 
       
      --eredmeny kiirasa 
      if b then 
         put_line("A keresett elem a(z) " & integer'image(j) & ". helyen talalhato"); 
      else 
         put_line("Nincs meg a keresett elem"); 
      end if; 
       
   end; 
end linker;