Разработать программу вывода графика произвольной функции

uses crt,graph;
const
x1=0;{начало и конец графика в пикселах без коэффициентов}
x2=30;
var
x,dx,y1,y2,y:real;
mx,my,x0,y0,grD,px,py1,py2,grM,i,c:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,GrM,'');
X0:=10;{начало координат}
Y0:=470;
mx:=15; my:=15; {коэффициенты по осям подогнаны под реальный график}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(x0,y0,630,y0); {ось Х}
line(x0,y0,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 11 do   {максимальное количество засечек в одну сторону}
   begin
    line(x0,y0-i*50,630,y0-i*50);     {засечки на оси У}
    line(x0+i*50,0,x0+i*50,480); {засечки на оси Х}
    {подпись оси У}
    str(i,s);
    outtextXY(x0+5,y0-i*50,s);{соответственно засечкам}
    {подпись оси Х}
    str(-i,s1);
    outtextXY(x0+i*50,y0-10,s);
   end;
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,5, 'Y');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=x; {график}
     py1:=y0-round(y1*my);
     Putpixel (px,py1,4);
     x:=x+dx; {наращиваем х}
   end;
readln;
closegraph
end.

uses crt,graph;
type TPoint=record {тип точка с координатами}
            x,y:integer;
            end;
var p,p1:array[1..5]of TPoint;{массивы точек для рисования крыши и трубы}
    gd,gm,i:integer;
 
begin
clrscr;
InitGraph(gd,gm,''); {переход в графический режим}
setlinestyle(0,0,1);{тип линии, тонкая сплошная}
setfillstyle(1,2);{тип заполнения фигуры, сплошной, зеленый}
Bar(200,200,420,440);{координаты лев.верх и ниж.прав. углов дома}
setfillstyle(1,3);{сплошной, голубой}
Bar(260,240,360,350);{окно}
p[1].x:=170;p[1].y:=200;{определяем 3 координаты крыши}
p[2].x:=310;p[2].y:=50;
p[3].x:=450;p[3].y:=200;
p[4].x:=170;p[4].y:=200;{замыкаем 4ю в 1ю}
moveto(p[1].x,p[1].y);{становимся в 1ю}
for i:=1 to 4 do
lineto(p[i].x,p[i].y);{в цикле соединяем три точки}
setcolor(4);{красный цвет}
setlinestyle(0,0,1);{сплошная тонкая}
setfillstyle(1,4);{сплошной красный}
fillpoly(3,p);{заполняем треугольник}
p1[1].x:=360;p1[1].y:=102;{определеляем координаты трубы}
p1[2].x:=360;p1[2].y:=50;
p1[3].x:=410;p1[3].y:=50;
p1[4].x:=410;p1[4].y:=157;
p1[5].x:=360;p1[5].y:=102;
moveto(p1[1].x,p1[1].y);{первая точка}
for i:=1 to 5 do
lineto(p1[i].x,p1[i].y);{соединяем все 4}
setcolor(7);{серый цвет}
setlinestyle(0,0,1);{тонкая сплошная}
setfillstyle(1,7);{сплошная серая}
fillpoly(4,p1);{закрашиваем 4х-угольник}
readln;
Closegraph;{выходим из графики}
end.