Массив предназначен для хранения значенийи ростов 12 человек . с датчика случайнях чисел заполнить массив значениями, лежащими в диапозоне от 163 до 190 включительно. вывести данный массив на экран.

Var mass:array[1..12] of integer;   
      i:integer;
begin
randomize;
for i:=1 to 12 do begin
mass[i]:=163+random(28);
writeln('рост ',i,' =',mass[i]);
end;
end.

Пример работы:
рост 1 =167
рост 2 =168
рост 3 =186
рост 4 =167
рост 5 =170
рост 6 =170
рост 7 =173
рост 8 =175
рост 9 =168
рост 10 =179
рост 11 =174
рост 12 =188