Дан целочисленный массив из 6-ти элементов

constn=6; vara: array [1… n] of integer; k,i: integer; beginrandomize; for i: =1 to n do begina[i]: =random (30)+1; write (a[i],'); end; writeln; for i: =1 to 3 do begink: =a[i]; a[i]: =a[n+1-i]; a[n+1-i]: =k; end; for i: =1 to n do write (a[i],'); readln; end.