Program func-

Uses crt-

Var x,x₀,x_m,f,g,h:real-

Begin

— — — — — — — — Readln(x₀,x_m,h,)-

x:=x₀—

while x&gt-=x_m do begin

f:=cos(x)/sin(x)-ln(x)-

g:=exp(sin(x-2)/cos(x-2))-

writeln(‘f=’,f:8:4)- — — writeln(‘g=’,g:8:4)- — — writeln(‘x=’,x:8:4)-

x:=x+h-

end-