Program Number (Input, Output);
Var
A, B: Integer;
N : Integer;
S : Integer;
i : Integer;
Begin
WriteLn ('PASCAL: Получение случайных чисел из интервала [A,B].');
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите число случайных чисел N: ');
ReadLn (N);
For i := 1 To N Do
Begin
S := Trunc(Random(B-A)+A);
WriteLn (i:2,'-е случайное число:',S:4);
End;
ReadLn;
End.