program graficfunction; uses graph; var grdriver:integer; grmode:integer; errcode:integer; x,y,x1,y1,cx,cy,xg:integer; begin grdriver:=detect; initgraph(grdriver, grmode,''); errcode:=graphresult; if errcode=grok then begin cx:=round(getmaxx/2); cy:=round(getmaxy/2); line(0,cy,getmaxx,cy); line(cx,0,cx,getmaxy); for x:=-xg to xg do begin x1:=x+cx; y:=exp(x); y1:=getmaxy-round((y/20+cy)); circle(x1,y1,2) end; settextstyle(0,0,2); outtextxy(180,350,'rpaqpuk f y=exp(x)'); readln; closegraph; end else writeln('graphics error:', grapherrormsg(errcode)); end. Что здесь неправильно? Что исправить надо? Добавить?