begin
initgraph (graphmode , graphdetect, 'j:\tp\units');

setbkcolor (1) ;
setcolor (10);
setlinestyle (9,4,9) ;
line (320,0,320,479);
line (0,220,639,220);

setcolor (4) ;

for i:=-50 to 50 do

begin

x1:=(i) ;
x11:=0.1*(x1);
y11:=trunc(10*((exp(x11)*ln(exp(x11)))+(exp(x11)*ln(exp(x11))))/2);
y1:=-y11;

x2:=(i+1);
x21:=0.1*(x2);
y21:=trunc(10*((exp(x21)*ln(exp(x21)))+(exp(x21)*ln(exp(x21))))/2);
y2:=-y21 ;

{putpixel (x1+320,y1+220,10);}
{line (x,y,x,y)}
line (x1+320,y1+220 ,x2+320,y2+220) ;

end;

readln ;
closegraph;

end.