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.