program oszt;

uses crt;

const n=10; k=4;

var i, j: 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;

procedure csere(var a, b: integer);
  var temp: integer;
  begin
    temp:=a;
    a:=b;
    b:=temp;
  end;

begin
  clrscr;
  randomize;
  writeln('Oszt s a Knuth-algoritmus alapj n');
  writeln;
  feltolt(n);
  for i:=1 to k do
    begin
      j:=random(n-i+1)+i;
      csere(lap[i],lap[j]);
    end;
  for i:=1 to k do
    write(lap[i], '; ');
  readln;
end.