Построить оси координат. Начало координат следует поместить вблизи левого нижнего угла экрана, полуоси 0х и 0у разместить, как показано на рис.

uses  GraphABC;var  x: integer;begin  Line(5, 5, 5, Window.Height - 5);  Line(5, Window.Height - 5, Window.Width - 5, Window.Height - 5);  Line(Window.Width - 5, Window.Height - 5, Window.Width - 15, Window.Height);  Line(Window.Width - 5, Window.Height - 5, Window.Width - 15, Window.Height - 10);  Line(5, 5, 0, 15);  Line(5, 5, 10, 15);  x := Window.Height - 5;  while (x > 20) do  begin    Line(1, x, 9, x);    x := x - 30;  end;  x := 5;  while (x < Window.Width - 20) do  begin    Line(x, Window.Height - 2, x, Window.Height - 8);    x := x + 30;  end;  TextOut(15, 5, 'y');  TextOut(Window.Width - 15, Window.Height - 30, 'x');end.