Среда разработки: 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.