Нарисовать движущийся автомобиль: колеса при этом должны вращаться, и должен идти дым из выхлопной трубы.

[killere0]

пожалуйста помогите нарисовать а то я вообще от этого здохну скоро_)))

[killere0]

и ещё есть машина но только её редактировать надо но я незнаю что помогите вот этот код на машину

Program He; 
 Uses Graph,crt; 
 var gm,gd:integer; 
 p,d:pointer; 
 size,size1:integer; 
 x1,y1,x2,y2:integer; 
 kl:char;keypressed:boolean; 
 begin 
 initgraph(gd,gm,' '); 
 Setcolor(yellow); 
 Circle(20,20,10); 
 Circle(60,20,10); 
 Line(30,20,50,20); 
 Setfillstyle(1,yellow); 
 floodfill(20,20,yellow); 
 floodfill(60,20,yellow); 
 Size:=imagesize(0,0,100,100); 
 Getmem(p,size); 
 Getimage(0,0,70,70,p^); 
 cleardevice; 
 x2:=50; 
 y2:=50; 
 kl:=readkey; 
 While kl<>#27 do 
 begin 
 Case kl of 
 #80:y2:=y2+1; 
 #72:y2:=y2-1; 
 #77:x2:=x2+1; 
 #75:x2:=x2-1; 
 end; 
 cleardevice; 
 Putimage(x2,y2,p^,1); 
 kl:=readkey; 
 end; 
 readln; 
 CloseGraph; 
 End

нарисуйте пожалуйста на АВС поскаль!заранее спасибо



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[killere0]

1. (размещения с повторениями) Найти число буквосочетаний длины 4, составленных из 33 букв русского алфавита, и таких, что любые две соседние буквы этих буквосочетаний различны.
2. (перестановки) Сколькими способами можно расположить на шахматной доске 8 ладей так, чтобы они не могли бить друг друга?
3. (сочетания) Сколькими способами можно выбрать три из пяти букв слова эскиз?
4. Используя любой удобный метод, построить магический квадрат 6 порядка.


если не сложно помогите и эти задачи зделать пплиз!