Напишите программу, которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта.

var n, i: integer;begin//включаем рандомrandomize;//Вводим Nreadln(n);//генерируем N случайных чисел до 100. for i:=1 to n do    begin    n:=random(100);//Выводим эти числа    write (n, ' ');    end;    writeln;end.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  SeqRandom(ReadInteger('n='),1,99).Printlnend.Тестовое решение:n= 308 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69