График

uses crt,Graph;
type
point = record
x,y : integer;
end;
 
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  a,b,c,d : integer;
  x,y : real;
  ms : array [1..1000] of point;
begin
  writeln('Enter A, B');
  readln(a,b);
  for c:=a to b do begin
      inc(d);
      ms[d].x:=c;
      ms[d].y:=trunc(0.2*(sqr(ms[d].x)-4)*(sqr(ms[d].x)+4)-(26*sqr(ms[d].x)-41));
  end;
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  line(100,240,540,240);
  line(320,20,320,460);
  outtextxy(330,25,'Y');
  outtextxy(540,250,'X');
  for a:=1 to 44 do begin
  line(315,465-a*10,325,465-a*10);
  line(95+a*10,235,95+a*10,245);
 
  end;
  moveto(ms[1].x,ms[1].y); 
  for c:=2 to d do lineto(ms[c].x,ms[c].y);
  readkey;
end.

program funkciya;
uses graph;
var
gm,gd,x,i,y:integer;t:string;l:text;x1,y1:real;
Begin
assign(l,'malina');
rewrite(l);
x1:=0;
while x1<=2 do
begin
y1:=x1*x1-1;
writeln(l,x1,' ',y1);
x1:=x1+0.1;
end;
close(l);
reset(l);
initgraph(gd,gm,'');
setbkcolor(white);
setcolor(blue);
line(getmaxx div 2-300,15,getmaxx div 2-300,getmaxy-15);
line(15,getmaxy-130 ,getmaxx-15,getmaxy-130);
outtextxy(getmaxx-10,getmaxy-134,'x');
outtextxy(getmaxx div 2-303,4,'y');
for i:=0 to 4 do
begin
str(i,t);if i>0 then outtextxy((getmaxx div 2)+300*i-305,(getmaxy-130)-3+10,t);
if i<>0 then
 line((getmaxx div 2)+300*i,(getmaxy-130)-3,(getmaxx div 2)+300*i,(getmaxy-130)+3);
end;
setlinestyle(0,0,3);
for i:= -1 to 3 do
begin
str(i,t);if i>0 then outtextxy((getmaxx div 2)-319,getmaxy-130-110*i-3,t)
else outtextxy((getmaxx div 2)-319,getmaxy-130-110*i-3,t);
line((getmaxx div 2-300)-3,getmaxy-20-110*i,(getmaxx div 2-300)+3,getmaxy-20-110*i);
end;
moveto((getmaxx div 2)+150*-2,getmaxy-20);
 while not eof(l) do
 begin
 readln(l,x1,y1);
 lineto((getmaxx div 2-300)+round(300*x1),getmaxy-130-round(110*y1));
end;
readln;
close(l);
closegraph;
End.