можете, объяснить, вот вся программа:
uses GraphABC;

procedure TextOut;
begin
clearwindow;
setCoordinateOrigin(WindowWidth div 2, windowHeight div 2); //Координаты центра окна
TextOut(0 , 0, windowHeight div 2);
end;

procedure functiondraw;
var
x,y : real;
begin
clearWindow;
setCoordinateOrigin(windowWidth div 2, windowHeight div 2); //Координаты центра окна
x:= -1; //масшнтаб график
line(0, windowHeight div 2,0, -(windowHeight div 2)); //y
line(windowWidth div 2,0,-(windowWidth div 2),0); //x
while x < 1 do
begin
y:=2*x*x+3;
lineto(round(x*50), -round(y*50)); //масштаб графика
x:= x+0.01;
end;
end;

procedure keydown(key: integer);
begin
case key of
VK_F2 : functiondraw;
VK_F1 : TextOut;
end;
end;

procedure mouseDown(x,y,mb:integer);
begin
if mb = 2 then clearWindow;
end;

begin
OnKeyDown := keydown;
OnMouseDown := mousedown;
end.

откуда берется эта линия: http://clip2net.com/s/3qK5Ezd отцентра которая, не могу понять... вроде при нажатии на клавишу f2, должна бать только парабола, без косой линии

setCoordinateOrigin устанавливает графический курсор в центр экрана.
lineto рисует линию, от текущего положения курсора, к точке с указанными координатами.