Вычислить значение выражения - PascalABC.NET (24821)

Формулировка задачи:

Доброго времени суток. Паскаль изучал, года 4 назад. Много забыл. Помогите пожалуйста с решением данной задачи. b=8; a(4)=23,30,35,12; C₀=15; C_k=25; h=5.

Решение задачи: «Вычислить значение выражения»

Листинг программы

const n=4;
      m=3;
      a:array[1..n] of integer=(23,30,35,12);
      b=8;
      c:array[1..m] of integer=(15,20,25);
var y,s,p:real;
    i,j:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i]+sqrt(a[i])+b;
p:=1;
for j:=1 to m do
p:=p*sqrt(c[j]);
y:=s/p;
write('y=',y:0:3);
end.

Объяснение кода листинга программы

Объявлены константы n=4 и m=3.
Объявлен массив a размером 4 элемента и инициализирован значениями (23,30,35,12).
Объявлена переменная b со значением 8.
Объявлен массив c размером 3 элемента и инициализирован значениями (15,20,25).
Объявлены переменные y,s,p типа real.
Объявлены переменные i,j типа integer.
Переменная s инициализируется нулем.
Цикл for перебирает значения i от 1 до 4.
Внутри цикла переменная s увеличивается на сумму a[i],sqrt(a[i]) и b.
Переменная p инициализируется единицей.
Цикл for перебирает значения j от 1 до 3.
Внутри цикла переменная p увеличивается на произведение sqrt(c[j]).
Переменная y вычисляется как отношение s к p.
Значение y выводится на экран с точностью до 3 знаков после запятой.
Ввод-вывод данных осуществляется через файл, подключенный к среде программирования.