program frendez;

uses crt;

const n=10;

var i, j, temp, hely: integer;
    lap: array[1..10] of integer;

procedure feltolt(n: integer);
  var i: integer;
  begin
    for i:=1 to n do
      lap[i]:=i;
  end;

begin
  clrscr;
  randomize;
  writeln('Kever‚s fordˇtott rendez‚ssel');
  writeln;
  feltolt(n);
  for i:=2 to n do
    begin
      temp:=lap[i];
      hely:=random(i)+1;
      for j:=i-1 downto hely do
        lap[j+1]:=lap[j];
      lap[hely]:=temp;
    end;
  for i:=1 to n do
    write(lap[i], '; ');
  readln;
end.