Построить график функции y = x^2 в pascalabc.net

Uses graphABC;
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.