Question

Есть программа, код приложу,нужно ее переделать используя счетчик.Если не сложно прокомментируйте нововведения. 
program pr3;
const a = 2.12;
const b = 7.45;
const h = 0.34;
var  x, f1, f2, y, s: real;
begin 
x := a; 
 s := 0;
  REPEAT   
  f1:=3*ln(exp(1/5)*ln(sin(x)+sqr(x))); 
   f2:=((2*x+1)/(x*x*x*x*x)); 
  y := f1 / f2;
    s := s + y; 
   x := x + h; 
UNTIL x > b; 
 Writeln('S=', s:10:5); 
end.