[Pyro]

PHP код:

type Tmyarray = array[1..15] of integer;
procedure shuffle(var a: Tmyarray);
  procedure swap(x, y: integer);
  var k: integer;
  begin
    k := a[x]; a[x] := a[y]; a[y] := k;
  end;
var i: integer;
begin
  for i := low(a) to high(a) do
    swap(i, low(a) + random(high(a)));
end;