Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 22 до 23. Найти произведение всех элементов массива. Увеличить все элементы на число b.

//Pascal ABC.NET v3.1 сборка 1219Const n=15; Var ar:array[1..n] of integer; pro,i,k:uint64;begin randomize; pro:=1; writeln('First array:'); for i:=1 to n do  begin   ar[i]:=random(22,23); //Серьёно?   write(ar[i]:4);   pro:=pro*ar[i];  end; writeln; writeln('Pro=',pro); write('Enter value:'); readln(k); writeln('Final array:'); for i:=1 to n do  begin   ar[i]:=ar[i]+k;   write(ar[i]:6);  end;end.Пример работы программы:First array:  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23Pro=10868183115618730368Enter value:3Final array:    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26