program teljenumbrid;
uses graph;
 exmin, exmax, eymin, eymax: integer; {ekraani koordinaadid}
 ex, ey, vanaex, vanaey: integer;
 xmin, xmax, ymin, ymax, x, y: real; {punkt tasandil}
 koefitsentx, koefitsenty: real;
 i: integer;
 s: string;

{$I graafika.pas}
procedure alusta;
begin
 exmin:=50; exmax:=getmaxx-50; {servadesse veidi ruumi numbrite jaoks}
 eymin:=50; eymax:=getmaxy-50;
 xmin:=0; xmax:=30;
 ymin:=-2; ymax:=2;
 koefitsentx:=(exmax-exmin)/(xmax-xmin);
 koefitsenty:=(eymax-eymin)/(ymax-ymin);
end;

procedure teljed;
begin
settextjustify(2, 2); 
 str(ymax:2:1, s);
 outtextxy(exmin, eymin, s);
 str((ymax+ymin)/2:2:1, s);
 outtextxy(exmin, round((eymax+eymin)/2), s);
 str(ymin:2:1, s);
 outtextxy(exmin, eymax, s);
 settextstyle(0, 1, 0);
 str(xmin:2:1, s);
 outtextxy(exmin, eymax+10, s);     {et ei läheks y-telje väärtuse peale}
 str((xmin+xmax)/2:2:1, s);
 outtextxy(round((exmin+exmax)/2), eymax, s);
 str(xmax:2:1, s);
 outtextxy(exmax, eymax, s);
end;

begin
 KaivitaGraafika;
 alusta;
  teljed;
 readln;
 CloseGraph;
end.