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

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

вычислить сумму (или произведение) значений выражения для значений аргумента x изменяющегося от начального значения с шагом h . Суммирование (умножение) производить до тех пор, пока не выполнится заданное условие..Не могу найти ошибку. Выдает не точный ответ.

var i,n:integer; 
x,h,s:real; 
begin  
x := 0.1; 
h:=0.19; 
s:=ln(abs(sin(x)))+cos(x); 
while x > pi do 
begin 
s:= s+ln(sqr(tan(0.42*x)))/(2+sqr(x)); 
x:=x+h; 
end;
writeln(s); 
end.

Сумма: x₁ = 0.1 h = 0.19 Условие: x >

Сумма: -8,435722

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

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

var i,n:integer;
    x,h,s:real;
begin
x:=0.1;
h:=0.19;
s:=0;
while x<=pi do
 begin
  s:=s+ln(sqr(tan(0.42*x)))/(2+sqr(x));
  x:=x+h;
 end;
writeln(s);
end.

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

Объявляются переменные: i, n, x, h, s.
Значение переменной x устанавливается в 0.1.
Значение переменной h устанавливается в 0.19.
Значение переменной s устанавливается в 0.
Запускается цикл while, условием которого является x <= pi.
Внутри цикла значение переменной s увеличивается на сумму ln(sqr(tan(0.42*x)))/(2+sqr(x)).
Значение переменной x увеличивается на h.
Цикл продолжается, пока x <= pi.
По завершении цикла значение переменной s выводится на экран.