Напишите программу для дублирования элементов массива

const  nn=35;var  i,n,t:integer;  a:array[1..nn] of integer;begin  Readln(n);  for i:=1 to n do Read(a[i]);  for i:=1 to n div 2 do begin    t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t    end;  for i :=1 to n do    Write(a[i],' ');  Writelnend.