Составте програму.именно програму ,а не алгоритм

#include <iostream>
 
int main()
{
    // Считываем.
    int n;
    std::cin >> n;

    int * a = new int[n];

    int t;
    int i = 0;
    while (n - i){
        if (std::cin >> t){
            a[i++] = t;
        }
    }
   
    // Находим и выводим.
    n--;
    int max = -1;
    for (i = n-1; i >= 0; --i){
        if (a[i] > *a && a[i] < a[n]){
            max = i;
            break;
        }
    }
    std::cout << max+1 << std::endl;
    delete [] a;

    std::cin.get();
    std::cin.get();
    return 0;
}

Const
  d = '0123456789';

var
  i, m, k: longint;
  c: char;
  n: string;

begin
  Write('Введите шестнадцатиричное число: '); Readln(n);
  m := 0;
  while n[1] = '0' do delete(n, 1, 1);
  for i := 1 to length(n) do
  begin
    c := n[i];
    case c of
      'F', 'f': k := 15;
      'E', 'e': k := 14;
      'D', 'd': k := 13;
      'C', 'c': k := 12;
      'B', 'b': k := 11;
      'A', 'a': k := 10;
    else k := Pos(c, d) - 1
    end;
    m := 16 * m + k
  end;
  Writeln(n, '(16)=', m, '(10)')
end.

Тестовое решение:
Введите шестнадцатиричное число: 1A2B3C
1A2B3C(16)=1715004(10)