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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

program snegovik;

uses crt, graph;

Var gd, gm:integer;

begin

clrscr;

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) ;

Readln

end.