Дан массив A, состоящий из 12 элементов. Элементы массива - произвольные

USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;A:ARRAY[0..12] OF INTEGER;
nbsp;nbsp;nbsp;I: BYTE; nbsp;nbsp;PP:INTEGER;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp;WriteLn( Значения частей массива);
nbsp;nbsp;nbsp;FOR I:=1 TO 12 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;A[I]:=Random(20); nbsp;nbsp;nbsp;Write(A[I]:3);
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;I:=1;
nbsp;nbsp;nbsp;WHILE Ilt;=12 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;перестановка частей местами, используя промежную переменную PP
nbsp;nbsp;nbsp;nbsp;nbsp;PP:=A[I]; nbsp;nbsp;A[I]:=A[I+1]; nbsp;A[I+1]:=PP;
nbsp;nbsp;nbsp;nbsp;nbsp;I:=I+2;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Значения частей модифицированного массива);
nbsp;nbsp;nbsp;FOR I:=1 TO 12 DO
nbsp;nbsp;nbsp;nbsp;nbsp;Write(A[I]:3);
nbsp;END.