Program Tank; uses graphabc; var w,h:integer; begin w:=WindowWidth; h:=WindowHeight; circle(w div 2 - 80, h div 2 + 50,18); circle(w div 2 - 40, h div 2 + 50,18); circle(w div 2 - 00, h div 2 + 50,18); circle(w div 2 + 40, h div 2 + 50,18); circle(w div 2 + 80, h div 2 + 50,18); Arc (w div 2 - 80, h div 2 + 50, 25, 270, 90); Arc (w div 2 + 80, h div 2 + 50, 25, 270, 450); line(w div 2 - 80, h div 2 + 50 - 25, w div 2 + 80, h div 2 + 50 - 25); line(w div 2 - 80, h div 2 + 50 + 25, w div 2 + 80, h div 2 + 50 + 25); line(w div 2 - 80, h div 2 - 20, w div 2 - 80, h div 2 + 25); line(w div 2 + 80, h div 2 - 20, w div 2 + 80, h div 2 + 25); line(w div 2 - 80, h div 2 - 20, w div 2 + 80, h div 2 - 20); line(w div 2 - 60, h div 2 - 30, w div 2 + 60, h div 2 - 30); line(w div 2 - 60, h div 2 - 30, w div 2 - 80, h div 2 - 20); line(w div 2 + 60, h div 2 - 30, w div 2 + 80, h div 2 - 20); rectangle(w div 2 + 80, h div 2, w div 2 + 180, h div 2 + 10); circle(w div 2 + 60, h div 2, 15); line(w div 2 + 60 - 15, h div 2, w div 2 + 60 + 15, h div 2); line(w div 2 + 60, h div 2 - 15, w div 2 + 60, h div 2 + 15); <span>end.</span>