Дана последовательность чисел А длины N требуется вывести в обратном порядке

Program  tapsirmaA;var a:array[1..1000000] of integer; i,n:integer; input,output:text;beginassign(input,a.in);assign(output,a.out);reset(input);rewrite(output);readln(input,n); for i:=1 to n doread(input,a[i]);for i:= n  downto 1 do write(output,a[i]:2);close(input); close(output); end.

Procedure san(n:integer);var a: integer;beginif nlt;1 then writelnelse begin  read(a);  san(n-1);  write(a, ); endend;var n:integer;beginwrite(n=);readln(n);writeln(San Engiz ,n,probel arkyly);san(n);end.