Переписать код, используя другие операторы - Pascal ABC

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

прошу помочь мне переписать эту задачу с другими операторами

begin
Y:=(sin(x*x)/cos(x*x))/((x*x)+1);
end;
begin
b:=1;                              
a:=0.2;                             
n:=10;                              
h:=(b-a)/n;                        
s:=0; z:=a+h;                       
while z<b do                       
begin                              
s:=s+4*Y(z);                                                     
z:=z+h;                             
s:=s+2*Y(z);                        
z:=z+h;                            
end;                               
s:=h/3*(s+Y(a)-Y(b));              
writeln('Интеграл = ',s:8:5);       
end.

подскажите что поменять или заменить на что

Решение задачи: «Переписать код, используя другие операторы»

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

function Y(x: real): real;
begin
  Y:=(sin(x * x) / cos(x * x)) / ((x * x) + 1)
end;
var a, b, h, z, s: real;
    n: integer;
begin
  b := 1;
  a := 0.2;
  n := 10;
  h := (b - a) / n;
  s := 0;
  z := a + h;
  repeat
    s := s + 4 * Y(z);
    z := z + h;
    s := s + 2 * Y(z);
    z := z + h;
  until z >= b;
  s := h / 3 * (s + Y(a) - Y(b));
  writeln('Интеграл = ',s:8:5);
  readln
end.

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

Создается функция Y, которая принимает один аргумент типа real и возвращает значение типа real.
В начале программы объявляются переменные a, b, h, z и s типа real, а также переменная n типа integer.
Значение переменной b устанавливается равным 1.
Значение переменной a устанавливается равным 0.2.
Значение переменной n устанавливается равным 10.
Вычисляется значение переменной h как разность между переменными b и a, деленная на n.
Значение переменной s устанавливается равным 0.
Значение переменной z устанавливается равным сумме переменных a и h.
Запускается цикл repeat, который выполняется до тех пор, пока значение переменной z не станет больше или равно значению переменной b.
Внутри цикла значение переменной s увеличивается на 4 * Y(z).
Значение переменной z увеличивается на h.
Значение переменной s увеличивается на 2 * Y(z).
Значение переменной z увеличивается на h.
После окончания цикла значение переменной s увеличивается на h, деленное на 3, и добавляется к результату вычисления Y(a) и Y(b).
Выводится значение переменной s.
Программа завершается и ожидает ввода пользователя.