Вычислить сумму или произведение значений выражения для заданного числа значений аргумента - Pascal ABC

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

Помогите исправить задачу. Я ее написал и не могу понять где ошибка. вычислить сумму или произведение значений выражения для заданного числа значений аргумента, изменяющегося от начального значения с шагом h .

                    Листинг программы
                
 
                        
                          
                    
program z21n3;
uses crt;
var i:integer;
x,h,s:real;
begin
write('Введите Х= ');
read(x);
h:=(pi/9);
s:=1;
for i:=1 to 9 do
begin
s:=s*((sin(sqr(x)))/(x+pi));
x:=x+h;
writeln(s:0:7);
end;
end.

Решение задачи: «Вычислить сумму или произведение значений выражения для заданного числа значений аргумента»

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

const n=9;
var i:integer;
    x,h,p:real;
begin
h:=pi/9;
x:=0.1;
p:=sin(sqr(x))/(x+pi);
for i:=2 to n do
 begin
  x:=x+h;
  p:=p*sin(sqr(x))/(x+pi);
 end;
writeln(' ');
writeln(p);
end.

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

const n=9; — задает значение переменной n равное 9
var i:integer; — объявляет переменную i типа integer
x,h,p:real; — объявляет переменные x, h и p типа real
h:=pi/9; — присваивает переменной h значение pi деленное на 9
x:=0.1; — присваивает переменной x значение 0.1
p:=sin(sqr(x))/(x+pi); — вычисляет значение переменной p как синус квадрата переменной x, деленный на (x+pi)
for i:=2 to n do — начинает цикл, который будет выполняться от 2 до n (n не должно превышать 20)
x:=x+h; — увеличивает значение переменной x на значение переменной h
p:=p*sin(sqr(x))/(x+pi); — пересчитывает значение переменной p, умножая его на синус квадрата переменной x, деленный на (x+pi)
end; — завершает цикл
writeln(' '); — выводит пробел
writeln(p); — выводит значение переменной p