var x:array[1..10] of integer;
    i,n,m,cache:integer;
Begin
Write(' Введите левую границу:  '); Readln(N);
Write(' Введите правую границу: '); Readln(M);

if (N > M) then
                Begin
                Cache:=M;
                M:=N;
                N:=Cache;
                end;

for i:=1 to 10 do
    Begin
    X[i]:=Random(m-n+1)+n;
    Writeln(X[i]);
    end;
end.