Pascal ABC. Написать программу, чтобы построить график функции y=x2 на интервале [-3,3]

//Pascal ABC.NET v3.1 сборка 1219Uses graphAbc;Var x1,y1,x2,y2,i:integer;beginmaximizewindow;line(0,300,windowwidth,300);line(300,0,300,windowheight);y2:=300;x2:=300;setpencolor(clblue); for i:=0 downto -3 do  begin   x1:=x2;   y1:=y2;   x2:=i*5+300;   y2:=(-sqr(x2-300)+300);   line(x1,y1,x2,y2);  end;y2:=300;x2:=300; for i:=0 to 3 do  begin   x1:=x2;   y1:=y2;   x2:=i*5+300;   y2:=(-sqr(x2-300)+300);   line(x1,y1,x2,y2);  end;end.

//Pascal ABC.NET v3.1 сборка 1219Uses graphAbc;const    c = 300;var    i: integer;    x, y: real;begin    Line(0, c, WindowWidth, c);    Line(c, 0, c, WindowHeight);        for i := -3 * c to 3 * c do    begin        x := i / c;        y := x * x;        PutPixel(round(25 * x) + c, c - round(25 * y), clBlueViolet);    end;end.