Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

uses crt,graphABC;

var x,y: integer;

begin

setwindowsize(500,500);

hidecursor;

lockdrawing;

x:=250; y:=250;

setbrushcolor(clyellow);

setpenwidth(4);

repeat

clearwindow(clskyblue);

setpencolor(clyellow);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

circle(250,250,60);

sleep(150);

redraw;

clearwindow(clskyblue);

setpencolor(clred);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

setpencolor(clyellow);

circle(250,250,60);

sleep(150);

redraw;

until keypressed;

end.

Объяснение: