Нарисовать ТАНК в программe Pascal ABC вот пример

program Tank;uses graphabc;var w,h:integer;beginw:=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);end.