Составить программу вычисления суммы отрицательных и суммы положительных значений функции - Turbo Pascal

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

Составить программу вычисления суммы отрицательных и суммы положительных значений функции: Z = ln(2+корень квадратный 1+cos^2 x )-arctg^2 y , при изменении агрумента х в интервале -2< или =x < или = 3.5; аргумент y изменяется в интервале 0,1< или = y < или = 0,4 : h=0,1

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

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

var
z,x,y:real;
s,s1:real;
begin
x:=-2;
y:=0.1;
while(x<=3.5) do
  begin
    while(y<=0.4) do
      begin
      z:=ln(2+SQRT(1+SQR(cos(x))))-SQR(arctan(y));
      writeln('z=',z);
      if z>0
        then s:=s+z
        else s1:=s1+z;
      y:=y+0.1;
      end;
      y:=0.1;
      x:=x+0.1;
  end;
writeln('Сумма положительных=',s);
writeln('Сумма отрицательных=',s1);
 
end.

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

Объявляются переменные x, y, z, s, s1 типа real.
Значения переменных x и y инициализируются как -2 и 0.1 соответственно.
Задается условие для цикла while: x <= 3.5.
Внутри цикла while задается еще одно условие для цикла while: y <= 0.4.
Внутри второго цикла while происходит вычисление значения переменной z.
Если значение переменной z положительное, то к переменной s прибавляется значение z. Если значение отрицательное, то к переменной s1 прибавляется значение z.
После окончания внутреннего цикла while значение переменной y увеличивается на 0.1, а значение переменной x увеличивается на 0.1.
После окончания внешнего цикла while выводятся значения сумм положительных и отрицательных значений переменной s и s1 соответственно.