Cycles/Random nums[F]

procedure ReadNums(var a,b,count:integer);
begin
  read(a,b,count);                      //read range borders
//  readln();                    //read nums count, need to write
end;
procedure WriteRandNums(a,b,count:integer);
var i:integer;
begin
  for i:=1 to count do              //repeat 'count' times
    Write(a+random(b-a+1),' ');     //write random num in range from a to b
end;
var count,a,b:integer;
begin
  ReadNums(a,b,count);              //read borders of range and count of nums,need to write
  WriteRandNums(a,b,count);         //write random nums with 'count' quantity
end.