(*$B-*)
PROGRAM fktplt;
USES Graph;
VAR i, xg, yg, xt, yt, oldx, oldy,  farbe, keine: integer;
    xmin, xmax, ymin, ymax, x, h : real ;

(*$I plotproz *)

FUNCTION f(x:real):real;
BEGIN
    f := sin(x) + x*exp(x)
END;

BEGIN
   writeln('xmin, xmax, ymin, ymax eingeben');
   readln(xmin, xmax, ymin, ymax);
   plotbegin( xg, yg, xt, yt, farbe, keine);
   achsen(xmin, xmax, ymin, ymax, xg, yg, xt, yt, farbe, keine);
   pl(xmin, f(xmin), keine);
   h := (xmax-xmin)/xg;
   for i := 0 to xg do
   begin
      x :=xmin+ i*h;
      pl(x, f(x), farbe)
   end;
   readln
END.