Задать циклы для решения : формирует массив е из 162 случайных чисел принадлежащих промежутку[15: 30]. параметром цикла является переменная x. нумерация начинается с 1.

Var x:byte;   
     e:array [1..162] of integer;
begin
for x:=1 to 162 do
e[x]:=random(15,30);
end.