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.  Что здесь неправильно? Что исправить надо? Добавить?