Нарисовать координатные оси, подписать их, подписать деления осей - PascalABC.NET - Ответ 7371657

uses graphABC;
function f(x:real):real;
begin
f:=(x*x-7*x+6)/x-5
end;
const
x1=-6;//начало и конец графика в реальных значениях
x2=6;
var x,dx,y,mx,my:real;
    x0,y0,px,py,i,k:integer;
    s,s1:string;
begin
x0:=windowwidth div 2;//начало координат в центре экрана
y0:=windowheight div 2;
my:=(y0-20)/30;//масштаб
mx:=(x0-20)/6;
line(0,y0,2*x0,y0); //оси
line(x0,0,x0,2*y0);
for i:=1 to 30 do //максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));//засечки на оси У
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  //подпись оси У
  if i mod 2=0 then
   begin
    textout(x0-25,y0-round(i*my),s);//оответственно засечкам
    textout(x0-25,y0+round(i*my),'-'+s);
   end;
  //подпись оси Х}
  textout(x0+round(i*mx),y0+10,s);
  textout(x0-round(i*mx),y0+10,'-'+s);
 end;