построить график функции

uses graph;
const
x1=-5;{начало и конец графика в пикселах без коэффициентов}
x2=5;
var
x,dx,y1,y2,y:real;
mx,my,x0,y0,grD,px,py1,py2,grM,i,c:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,GrM,'');
X0:=getmaxX div 2;{начало координат}
Y0:=470;
mx:=round(600/(x2-x1)); my:=round(420/(x2*x2)); {коэффициенты по осям подогнаны под реальный график}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(0,y0,630,y0); {ось Х}
line(x0,y0,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 25 do   {максимальное количество засечек в одну сторону}
   begin
    line(0,y0-i*my,630,y0-i*my);     {засечки на оси У}
    line(x0+i*mx,0,x0+i*mx,480); {засечки на оси Х}
    line(x0-i*mx,0,x0-i*mx,480);
    {подпись оси У}
    str(i,s);
    outtextXY(x0+5,y0-i*my,s);{соответственно засечкам}
    {подпись оси Х}
    str(i,s1);
    outtextXY(x0+i*mx,y0-10,s);
    outtextXY(x0-i*mx,y0-10,'-'+s);
   end;
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,5, 'Y');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=x*x; {график}
     py1:=y0-round(y1*my);
     Putpixel (px,py1,4);
     x:=x+dx; {наращиваем х}
   end;
readln;
closegraph
end.

uses graph;
var xc,yc,r1,r2,i:integer;
    t,m:real;
    s:string;
begin
r1:=4;
r2:=3;
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=(yc-100)/r2;
line(0,yc,getmaxX-30,yc);
line(xc,20,xc,getmaxY);
outtextXY(getmaxX-30,yc+20,'X');
outtextXY(xc-20,20,'Y');
for i:=1 to r1 do
 begin
  line(xc-3,yc+round(i*m),xc+3,yc+round(i*m));{з*сечки ** оси У}
  line(xc-3,yc-round(i*m),xc+3,yc-round(i*m));
  line(xc+round(i*m),yc-3,xc+round(i*m),yc+3); {з*сечки ** оси Х}
  line(xc-round(i*m),yc-3,xc-round(i*m),yc+3);
  str(i,s);
  {подпись оси У}
  outtextXY(xc-30,yc+round(i*m),'-'+s);{соответстве**о з*сечк*м}
  outtextXY(xc-20,yc-round(i*m),s);
  {подпись оси Х}
  outtextXY(xc+round(i*m),yc+10,s);
  outtextXY(xc-round(i*m),yc+10,'-'+s);
 end;
{це*тр}
outtextXY(xc+5,yc+10,'0');
t:=0;
while t<=2*pi do
 begin
  putpixel(xc+round(r1*cos(t)*m),yc-round(r2*sin(t)*m),12);
  t:=t+0.001;
 end;
readln
end.