напишите программу, которая вводит два целых числа, a и b (a<b) и выводит на экран 5 случайных целых чисел на отрезке [a;b]
var
i,a,b:integer;
begin
randomize;
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.