Program DemoRandom;
Const
  N=100; 
Var
  i : integer;
  A : array [1..N] of integer; // Массив из 100 целых элементов

Begin
  randomize;                   // "Взводим" случайные числа  
  
  for i:= 1 to N do 
    A[i] := 1 + random(10);    // Получаем случайное число от 0 до 9 и "сдвигаем" его на единицу.
    
  for i:= 1 to N do 
    write(A[i], ' ');    
 
End.