Напишите программу в ПаскальABC,с помощью которой можно нарисовать снеговика.

цифры не писать, случайно вставились

12345678910111213141516171819202122program snegovik;uses crt,graph;Var gd,gm:integer;beginclrscr;detectgraph (gd,gm);initgraph (gd,gm,'tp\7');circle (270,330,90);circle (270,180,60);circle (270,90,30);Line (217,150,150,210);Line (150,390,150,30);Line (150,90,120,30);Line (150,90,180,30);Line (150,90,135,30);Line (150,90,165,30);Line (322,150,390,210);Line (270,95,270,105);Circle (255,85,7);Circle (285,85,7);Readlnend.