Program Algorithm;

{ Instead of sorting.
  How to shuffle the numbers 1..N into random order. }

const
  LIM = 25;

var
  k, boven, plaats, effe : word;
  rij : array[1..LIM] of word;

begin
  for k := 1 to LIM do
    rij[k] := k;

  for k := 1 to LIM do
  begin
    boven := LIM-k+1;
    plaats := Random(boven) + 1;
    effe := rij[plaats];
    rij[plaats] := rij[boven];
    rij[boven] := effe;
  end;

  for k := 1 to LIM do
    Write(rij[k],' ');
  Writeln;
end.