Программа для построения графика

uses GraphWPF;
 
begin
  DrawGraph(x->x ** (1/3), 20,100);
end.

uses GraphWPF;
 
begin
  DrawGraph(x->x ** (1/5), 20,100);
end.

uses GraphABC;
function f1(x:integer):real;
begin
f1:=power(x,1/3)
end;
function f2(x:integer):real;
begin
f2:=power(x,1/5)
end;
var x0,y0:integer;
    mx,my:real;
begin
x0:=50;
y0:=Window.Height-50;
mx:=(Window.Width-x0-30)/100;
my:=(y0-40)/f1(100);
line(x0,y0,Window.Width,y0);
line(x0,y0,x0,0);
for var x:=1 to 100 do
 begin
  line(x0-3,y0-round(x*my),x0+3,y0-round(x*my));
  textout(x0-20,y0-round(x*my),inttostr(x));
  if x mod 5=0 then
   begin
    line(x0+round(x*mx),y0-3,x0+round(x*mx),y0+3);
    textout(x0+round(x*mx),y0+10,inttostr(x));
  end;
 end; 
 textout(x0+5,y0+10,'0') ;
 textout(Window.Width-20,y0-20,'X');
 textout(x0+5,0,'Y');
 for var x:=20 to 100 do
 if x mod 5=0 then
  begin
   Pen.Color:=clRed;
   Brush.Color:=clRed;
   circle(x0+round(x*mx),y0-round(f1(x)*my),2);
   Pen.Color:=clBlue;
   Brush.Color:=clBlue;
   circle(x0+round(x*mx),y0-round(f2(x)*my),2);
  end;
Brush.Style:=bsClear; 
Font.Size:=12;
Font.Color:=clRed;
textout(100,10,'y=x^1/3');
Font.Color:=clBlue;
textout(100,30,'y=x^1/5');
end.