Разработайте динамическую модель - старт ракеты.программа в паскале

uses graphABC;var f:boolean;procedure planety(r,x,y:integer;c:Color);beginsetpencolor(c);setbrushcolor(c);setbrushstyle(bsSolid);circle(x,y,r);end;procedure KeyPress(key:char);beginif key<>#0 then f:=false;end;var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;u1,u2:real;beginxc:=windowwidth div 2;yc:=windowheight div 2;rs:=90;rz:=15;rl:=3;r1:=170;r2:=25;u1:=0;u2:=0;clearwindow(clBlack);lockdrawing;onkeypress:=Keypress;f:=true;repeatclearwindow(clBlack);setbrushstyle(bsClear);setfontcolor(clWhite);textout(windowwidth div 2-80,10,'Выход любая клавиша');planety(rs,xc,yc,clYellow);u1:=u1-0.02;u2:=u2+0.1;x1:=xc+round(r1*cos(u1));y1:=yc-round(r1*sin(u1));x2:=x1+round(r2*cos(u2));y2:=y1-round(r2*sin(u2));planety(rz,x1,y1,clBlue);planety(rl,x2,y2,clSilver);sleep(100);redrawuntil not fend.