Умоляю
Срочно
Напишите программу на паскале подробно

Отформатируйте текст, пожалуйста!

Думаю похоже на то,что тебе нужно.

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016begin  var a:=ArrRandom(12,10,99);  a.Println;  for var i:=0 to 1 do begin    Swap(a[i],a[3-i]);    Swap(a[i+4],a[7-i]);    Swap(a[i+8],a[11-i])    end;  a.Println  end.Тестовое решение:33 23 98 13 22 79 31 38 71 30 48 5313 98 23 33 38 31 79 22 53 48 30 71