как нарисовать декартовую ось на паскале?

[tipson]

есть 10 точек, координаты известны
нужно нарисовать декартовую ось, и отметить эти точки на ней

кто нить напишет готовый код?

[Ser@Fim]

Если ось, то что-то вроде такого:

uses graph;
const a:array [1..10] of integer = (1,2,5,7,8,9,11,12,14,15);
var dv,mv,y0,i:integer;
    step:byte;{единичный отрезок}
    s:string;
begin
 dv:=detect;
 InitGraph(dv,mv,'');
 y0:=getmaxY div 2;
 step:=20;
 {рисуем ось}
 SetColor(15);
 line(25, y0, getmaxX-25, y0);
 line(25, y0-3, 25, y0+3);
 OutTextXY(22 ,y0+5, '0');
 {отмечаем точки на координатной оси}
 for i:=1 to 10 do
  begin
   line(25+a[i]*step, y0-3, 25+a[i]*step, y0+3);
   Str(a[i],s);
   OutTextXY(22+a[i]*step, y0+5, s);
  end;
 readln;
 CloseGraph;
end.

Может все-таки в прямоугольной декартовой системе координат?