Bài 1: program SearchElement;
var
  n, k, i: integer;
  a: array of integer;
  test: boolean;
begin
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
    readln(a[i]);
  readln(k);
  test := false;
  for i := 0 to n - 1 do
  begin
    if a[i] = k then
    begin
      test := true;
      write(i, ' ');
    end;
  end;
  if not test then
    writeln('Khong tim thay');
end.

Bài 2: 
program BubbleSort;
var
  n, k, i, j, temp: integer;
  a: array of integer;
begin
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
    readln(a[i]);
  
  for i := 0 to n - 1 do
  begin
    for j := n - 1 downto i + 1 do
    begin
      if a[j] < a[j - 1] then
      begin
        temp := a[j - 1];
        a[j - 1] := a[j];
        a[j] := temp;
      end;
    end;
  end;
  
  for i := 0 to n - 1 do
    write(a[i], ' ');
end.