ОЧЕНЬ-ОЧЕНЬ СРОЧНО , ПОМОГИТЕ, УМОЛЯЮ
Вводится одномерный массив размерностью 40 для обработки данной программой. Что делает программа?

Program pr;
Var a: array [1..40] of integer;

i,p,n: integer;

begin

for i:=1 to 40 do

readln (a [i] ) ;

for i:=1 to 40 div 2 do

begin

p:=a[i] ;

a[i]:=a[n-i+1] ;

a[n-i+1]:=p;

end;

for i:=1 to n do

writeln (a [i] ) ;

end.​