Ответ:

Обьект "ракета"                                                                                   1)Program raketa;

Uses GraphAbc;  //Подключение модуля GraphAbc

Begin

SetWindowSize(500,500); //Установка размеров графического  окна

SetPenColor(clBlack); // цвет пера -  

Line(50,100,150,150);

Line(150,150,350,150);

Line(350,150,400,200);

Line(400,200,350,250);

Line(350,250,150,250);

Line(150,250,50,300);

Line(50,300,50,100);

SetPenColor(clRed);

Line(50,200,150,200);

SetPenColor(clBlack);

SetBrushColor(clSkyBlue );

Circle(200,200,20);

Circle(250,200,20);

Circle(300,200,20);

 Движение "ракеты"                                                                                  2)Uses GraphAbc;

procedure raketa(x:integer);

begin

Line(x,100,x+100,150);

Line(x+100,150,x+300,150);

Line(x+300,150,x+350,200);

Line(x+350,200,x+300,250);

Line(x+300,250,x+100,250);

Line(x+100,250,x,300);

Line(x,300,x,100);

SetPenColor(clRed);

Line(x,200,x+100,200);

SetPenColor(clBlack);

SetBrushColor(clSkyBlue );

Circle(x+150,200,20);

Circle(x+200,200,20);

Circle(x+250,200,20);

end;

var x:integer;

Begin

x:=5;

lockdrawing;

repeat

clearwindow;

x:=x+5;

raketa(x);

sleep(50);

redraw

until x>windowwidth

End.

End.

Объяснение:

ВНИМАНИЕ!!!

Я НЕ ОБЕЩАЮ ЧТО ОТВЕТ БУДЕТ ПРАВИЛЬНЫМ