Задача: задано уравнение прямой.Построить на экране эту прямую. Pascal (материал 11 класса)

uses graph; var xc,yc,m,x1,y1:integer;     x,y:real; begin xc:=0; initgraph(xc,yc,''); xc:=getmaxX div 2; yc:=getmaxY div 2; m:=yc div 2; line(5,yc,getmaxX-5,yc); line(xc-m,yc+3,xc-m,yc-3); outtextXY(xc-m,yc+10,'-1'); outtextXY(xc+5,yc+10,'0'); line(xc+m,yc+3,xc+m,yc-3); outtextXY(xc+m,yc+10,'1'); line(xc,5,xc,getmaxY-5); line(xc-3,yc-m,xc+3,yc-m); outtextXY(xc-10,yc-m,'1'); line(xc-3,yc+m,xc+3,yc+m); outtextXY(xc-15,yc+m,'-1'); setcolor(12); line(xc-m,yc,xc,yc-m); line(xc,yc-m,xc+m,yc); line(xc+m,yc,xc,yc+m); line(xc,yc+m,xc-m,yc); x:=-4; while x<=4 do  begin   y:=0.52*x+0.18;   x1:=xc+round(x*m);   y1:=yc-round(y*m);   putpixel(x1,y1,14);   x:=x+0.01;  end; readln end.