Среда разработки: Turbo Pascal 7.1

uses crt;
const del=750;
      str=24;
var x,y:byte;
{------------------------------}
procedure tank(color,x,y:byte);
begin
textcolor(color);
gotoxy(x,y);
write('  ( )==[');
gotoxy(x,wherey+1);
write('(oooo)  ');
delay(del);
end;
{------------------------------}
procedure raketa(color,x,y:byte);
begin
textcolor(color);
gotoxy(x,y);
write('==>');
delay(del);
end;
{------------------------------}
procedure elka(color,x,y:byte);
begin
textcolor(color);
gotoxy(x,y-2);
write('  |  ');
gotoxy(x,y-1);
write(' /|\ ');
gotoxy(x,y);
write('//|\\');
gotoxy(x,y+1);
write('  |  ');
end;
{------------------------------}
procedure sun(color,x,y:byte);
begin
textcolor(color);
gotoxy(x,y);
write(' \ | / ');
gotoxy(x,y+1);
write('- ( ) - ');
gotoxy(x,y+2);
write(' / | \  ');
end;
{------------------------------}
begin
clrscr;
elka(lightgreen,3,str);
elka(lightgreen,75,str);
sun(yellow,50,str-10);
for x:=10 to 60 do
begin
     if keypressed then exit;
     tank(black,x,str);
     tank(green,x+1,str);
for y:=10 to 60 do
    begin
    if keypressed then exit;
    if y>=x+9 then begin
       raketa(black,y,str);
       raketa(lightred,y+1,24);
    end else delay(2*del);
    end;
    raketa(black,y+1,24);
end;
end.