Заполнить массив из 15 элементов случайным образом.вещественными значениями x (22 больше или равно х < 23).

Const N=15;
var A:array[1..N] of real;
i:integer;
begin
for i:=1 to N do begin
A[i]:=random(22,100);
write(A[i],' ');
end;
end.