Программа получения случайных чисел из заданного интервала [A,B].

Program Number (Input, Output);   

Объявление имени программы

Var         

Блок объявления глобальных переменных

A, B        : Integer;              

Переменные A и B -  целочисленные значения концов интервала

N             : Integer;              

Переменная N - количество случайных чисел

S             : Integer;              

Переменная S - очередное полученное случайное число

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Получение случайных чисел из интервала [A,B].');            

Формулировка цели алгоритма

Write ('Введите значение A: ');      

Вывод запроса A - левой границы интервала

ReadLn (A);        

Ввод A

Write ('Введите значение B: ');       

Вывод запроса B -  правой границы интервала

ReadLn (B);         

Ввод B

Write ('Введите число случайных чисел N: ');           

Запрос ввода N - количества случайных чисел

ReadLn (N);         

Ввод N

For i := 1 To N Do              

Цикл для i от 1 до N выбора случайных чисел

Begin    

Начало тела цикла

S := Trunc(Random(B-A)+A);         

Присваиваем S очередное случайное число из интервала [A,B]

WriteLn (i:2,'-е случайное число:',S:4);        

Форматированный вывод очередного числа

End;      

Конец тела цикла

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.