uses crt;
var
a, b, i: integer;
aa: array [1 .. 10] of integer;
begin
clrscr;
writeln('Введите отрезок [a,b] (a и b через Enter)');
read(a);
read(b);
FOR i := 1 TO 10 do
begin
aa[i] := round(a + Random(b - a));
end;
FOR i := 1 TO 10 do
begin
writeln(aa[i])
end;
end.