Нужно написать циклическое решение уравнения на паскале Sinx+2cosx^2 ______________ tgx

Var i,x1,x2:integer; y:real; begin writeln('введите х нач и х конечное'); readln(x1,x2); writeln('введите шаг для х'); readln(i); while x1<=x2 do     begin          if sin(x1)/Cos(x1)<>0 then               begin                        y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));                        writeln(x1:4,y:10:2);               end;             x1:=x1+i;     end; end.