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

//Pascal ABC.NET v3.1 сборка 1219Const n=15; Var ar:array[1..n] of integer; i,sum:integer;begin randomize; writeln('First array:'); for i:=1 to n do  begin   ar[i]:=random(5,15);   write(ar[i]:4);   if i<=6 then   sum:=sum+ar[i];  end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do  begin   ar[i]:=ar[i]*7;   write(ar[i]:6);  end;end.Пример работы программы:First array:   9  15   5  12  13   6  11   7   6  14  13   6   6  10  11Sum=60Final array:    63   105    35    84    91    42    77    49    42    98    91    42    42    70    77