program BilanganTerbalik;
uses crt;

var
  A: array[1..100] of integer;
  N, i: integer;

begin
  clrscr;
  write('Masukkan jumlah bilangan: ');
  readln(N);

  for i := 1 to N do
  begin
    write('Masukkan bilangan ke-', i, ': ');
    readln(A[i]);
  end;

  writeln('Bilangan secara terbalik:');

  for i := N downto 1 do
    write(A[i], ' ');

  readln;
end.