Question

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

Answer 1

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

Answer 2

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

Answer 3

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  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 53
13 98 23 33 38 31 79 22 53 48 30 71