PROGRAM PR11;

Var a,b,dx:':real;

Begin
Write ('a,b,dx:');
ReadLn(a,b,dx);
x:=a;
Repeat
y:=(2*exp(sin(2*x))+Exp(x+1*Ln(5))*Ln(x))-(4*Ln(abs(exp(4*Ln(x))))+sqrt(4.456+
/arctan(x-0.25))/Exp(Pi*Ln(x)-cos(2.01+x));
WriteLn('X=', x:0:3,' y=',y:0:4);
X:=x+dx
Until X>b'
End.