напишите код для не трудного рисунка в паскале

Машинка

program avto;

Uses crt,GraphABC;

Var x,y:integer;

Begin

X:=300; y:=200;

SetPenColor(clgray);

//колесо

Circle(x+10,y+50,20);

//колесо

Circle(x+100,y+50,20);

//корпус машины

MoveTo (x+30,y+50);

LineTo (x+80,y+50);

MoveTo (x+120,y+50);

LineTo (x+140,y+50);

MoveTo (x+140,y+50);

LineTo (x+140,y+20);

MoveTo (x+140,y+20);

LineTo (x+120,y+20);

MoveTo (x+120,y+20);

LineTo (x+100,y-30);

MoveTo (x+100,y-30);

LineTo (x+30,y-30);

MoveTo (x+30,y-30);

LineTo (x+10,y+20);

MoveTo (x+10,y+20);

LineTo (x-25,y+20);

MoveTo (x-25,y+20);

LineTo (x-25,y+50);

MoveTo (x-25,y+50);

LineTo (x-10,y+50);

//первое окно

MoveTo (x+20,y+20);

LineTo (x+60,y+20);

MoveTo (x+60,y+20);

LineTo (x+60,y-20);

MoveTo (x+60,y-20);

LineTo (x+35,y-20);

MoveTo (x+35,y-20);

LineTo (x+20,y+20);

//второе окно

MoveTo (x+70,y+20);

LineTo (x+110,y+20);

MoveTo (x+70,y+20);

LineTo (x+70,y-20);

MoveTo (x+70,y-20);

LineTo (x+95,y-20);

MoveTo (x+95,y-20);

LineTo (x+110,y+20);

End.