Составить программу в паскале. Переставить элементы одномерного массива по следующей схеме: а)исходный массив - а[1],а[2],а[3],а[4],а[5]. б)итоговый - а[5],а[4],а[3],а[2],а[1].

uses Crt;Const   N = 5;Var   A:array[1..N] of integer;   i,B:integer;BeginClrScr;Randomize;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(2*N+1);    Write(' ',A[i]);    End;WriteLn;Write('Итоговый массив:');For i:= 1 to N div 2 do    Begin    B:=A[N-i+1];    A[N-i+1]:=A[i];    A[i]:=B    End;For i:= 1 to N do    Write(' ',A[i]);ReadLnEnd.