Составить программу вычисляющую значение функции (функция прикреплена в файле)

var
   i,x,y,n:integer;
   res:real;
   function z(n:integer):real;
   var
      i:integer;
      s:real;
   begin
        s:=0;
        for i:=1 to n do
        begin
             s:=ln(10)/ln(3)*x-ln(10)/ln(2)*y/5*ln(10)/ln(5)*(x/y);
        end;
   end;
begin
     writeln('x=');
     read(x);
     writeln('y=');
     read(y);
     res:=z(n);
     writeln('res=',res);
end.

скажите пожалуйста что в этой программе может быть ошибкой, заранее огромное спасибо

(если не обращать внимания на возможность деления на 0)