Question

Исследуйте работу функции random, запустив многократно на выполнение программу:

program n_8;

var x, n: integer;

begin

writeln ('Исследование функции random');

randomize (*для генерации различных случайных чисел

при каждом запуске программы *);

write ('Введите x>>');

readln (x);

write ('Введите n>>');

readln (n);

writeln ('random(', x, ')=', random(x));

writeln ('random(', x, ')+', n, '=', random(x)+n)