Построить график

uses graph,crt;
const xn=-4;
      xk=4;
function F(y,n:extended):extended;
begin
F:=exp(ln(y)*n);
end;
var gd,gm,xc,yc,x1,y1,i:integer;
    z,x,y,mx,my,max:extended;
    s:string;
begin
clrscr;
repeat
write('y(0,5..2],y<>1 y=');
readln(y);
until (y>=0.5)and(y<=2)and(y<>1);
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxX div 2;
yc:=getmaxY-40;
mx:=(getmaxX-60)/(xk-xn);
if y<1 then max:=F(y,xn)
else max:=F(y,xk);
my:=(yc-20)/max;
line(10,yc,getmaxX-20,yc);
outtextXY(getmaxX-20,yc-15,'X');
line(xc,yc+30,xc,20);
outtextXY(xc+5,30,'Y');
for i:=1 to round(max)do
 begin
  line(xc+round(i*mx),yc-2,xc+round(i*mx),yc+2);
  line(xc-round(i*mx),yc-2,xc-round(i*mx),yc+2);
  str(i,s);
  outtextXY(xc+round(i*mx),yc+15,s);
  outtextXY(xc-round(i*mx),yc+15,'-'+s);
  line(xc+2,yc-round(i*my),xc-2,yc-round(i*my));
  outtextXY(xc-20,yc-round(i*my),s);
 end;
x:=xn;
while x<=xk do
 begin
  z:=F(y,x);
  x1:=xc+round(x*mx);
  y1:=yc-round(z*my);
  putpixel(x1,y1,12);
  x:=x+0.001;
 end;
readln
end.