напишите программу, которая вводит два целых числа, 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.