Массив из 11 элементов, элементы- случайные числа, в диапазоне от 3х до 5.

Var a:array [1..11] of integer; 
  i:integer;
begin 
randomize;   
for i:=1 to 11 do begin   
a[i]:= random(3)+3; 
 write(a[i]:2); 
end; 
end.

(Если ответ Вас удовлетворяет, не забудьте отметить решение, как лучшее)