Напишите программу,которая вводит натуральное число n и выводит на экран n всевдо случайных чисел (несколько вариантов решений,паскаль)

Предыдущий
вопрос Следующий
вопрос

Пример 1:

program RandomNumbers;
var
n, i: Integer;
begin
Randomize;
Write('Enter a natural number: ');
ReadLn(n);
for i := 1 to n do
WriteLn(Random(100));
end.

Пример 2:

program RandomNumbers;
var
n, i: Integer;
begin
Randomize;
Write('Enter a natural number: ');
ReadLn(n);
for i := 1 to n do
WriteLn(Random(10) + 1);
end.

Пример 3:

program RandomNumbers;
var
n, i: Integer;
begin
Randomize;
Write('Enter a natural number: ');
ReadLn(n);
for i := 1 to n do
WriteLn(Random(50) - 25);
end.