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

procedure san(n:integer);var a: integer;beginif n<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.

procedure san(n:integer);var a: integer;beginif n<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.

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.