zdenci

program generovanie;
uses crt;
var i,j,pdm,n:byte;
    A:array[1..20] of byte;
    B:array[1..10] of byte;
    flag:boolean;


begin
randomize;
clrscr;

for i:=1 to 20 do begin
                  repeat
                  flag:=true;
                  pdm:=random(20)+1;
                  for j:=1 to i-1 do if pdm=A[j] then flag:=false;
                  until flag;
                  A[i]:=pdm;
                  end;
repeat
write('Kolko  cisel chces podat [1..10]: ');
readln(n);
until (n>=1)AND(n<=10);

for i:=1 to n do begin
                  repeat
                  flag:=true;
                  pdm:=random(20)+1;
                  for j:=1 to i-1 do if pdm=B[j] then flag:=false;
                  until flag;
                  B[i]:=pdm;
                  end;
Writeln('Moje podane cisla: ');
for i:=1 to n do write(B[i],' ');
writeln;
writeln('Oficialne vyzrebovane cisla: ');
for i:=1 to 20 do write(A[i],' ');
writeln;
readln;
end.