program kereses;
const n = 10;
      tomb: array [1..n] of integer = (-2, 3, 8, 0, 9, 6, 7, 1, -3, 5);
var i, keresendo: integer;
begin
  writeln('Kereses egy tombben.');
  writeln('A tomb elemei:');
  for i:=1 to n do
    write(tomb[i]:3);
  writeln;
  //Keressük meg a 8-as elem sorszámát!
  keresendo:=-3;
  i:=1;
  while (i <= n) and (tomb[i] <> keresendo) do
    inc(i);
  if i <= n then
    writeln('Megtalaltam, es a ',keresendo,' elem sorszama: ',i)
  else
    writeln('Nincs meg a ',keresendo);
  readln;
end.