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

Var
i,n:integer;
begin
     readln(N); {вводим N}
     For i:=1 to n do
            write(Random(100),' '); {выводим псевдослучайные числа в диапазоне [0; 100) }
end.