Автор красоты: Дмитрий Ким. (7 класс) (код ниже)
program kote;
uses
GraphABC;
var
x:integer;
begin
setwindowsize(580,540);
setpencolor(clblack);
line (300,300,290,310);
line (290,300,300,310);
line (300,305,290,305);
line (295,300,295,310);
line (350,100,340,110);
line (340,100,350,110);
line (350,105,340,105);
line (345,100,345,110);
line (100,250,90,260);
line (90,250,100,260);
line (100,255,90,255);
line (95,250,95,260);
line (200,150,190,160);
line (190,150,200,160);
line (200,155,190,155);
line (195,150,195,160);
line (500,250,490,260);
line (490,250,500,260);
line (500,255,490,255);
line (495,250,495,260);
line (50,400,40,410);
line (40,400,50,410);
line (50,405,40,405);
line (45,400,45,410);
{снеговик}
circle (200,400,60);
circle (200,320,40);
circle (200,260,25);
line (175,320,130,250);
line (230,320,275,250);
{глаза и рот}
setbrushcolor (clblack);
circle (190,254,3);
circle (210,254,3);
circle (200,263,2);
circle (200,276,4);
{ведро}
line (165,255,175,255);
line (225,255,235,255);
line (165,255,180,200);
line (235,255,220,200);
line (180,200,220,200);
{украшения на елку}
line (350,325,350,340);
circle (350,350,10);
line (450,300,450,315);
circle (450,325,10);
line (400,250,400,270);
circle (400,280,10);
{елка}
setbrushcolor(clgreen);
line (300,400,400,100);
line (500,400,400,100);
line (300,400,500,400);
line (380,400,375,450);
line (420,400,425,450);
line (425,450,375,450);
circle (300,925,500);
circle (0,0,150);
floodfill(400,150,clgreen);
floodfill(400,401,clbrown);
floodfill(167,254,clgray);
floodfill(176,2,cllightblue);
floodfill(300,450,clwhite);
floodfill(1,1,clyellow);
setpencolor(clblue);
x:=1;
repeat
floodfill(350,350,clred);
sleep(15);
floodfill(450,325,clorange);
sleep(15);
floodfill(400,280,clblue);
sleep(15);
floodfill(350,350,clyellow);
sleep(15);
floodfill(450,325,clblue);
sleep(10);
floodfill(400,280,clmoneygreen);
sleep(15);
x:=x+1;
until x=10000000000;
circle (200,210,25)
end.
2 вариант
program kote;
uses
GraphABC;
var
x:integer;
begin
setwindowsize(580,540);
setpencolor(clblue);
setpenwidth(2);
line (300,300,290,310);
line (290,300,300,310);
line (300,305,290,305);
line (295,300,295,310);
line (350,100,340,110);
line (340,100,350,110);
line (350,105,340,105);
line (345,100,345,110);
line (100,250,90,260);
line (90,250,100,260);
line (100,255,90,255);
line (95,250,95,260);
line (200,150,190,160);
line (190,150,200,160);
line (200,155,190,155);
line (195,150,195,160);
line (500,250,490,260);
line (490,250,500,260);
line (500,255,490,255);
line (495,250,495,260);
line (50,400,40,410);
line (40,400,50,410);
line (50,405,40,405);
line (45,400,45,410);
setpenwidth(1);
setpencolor(clblack);
{снеговик}
circle (200,400,60);
circle (200,320,40);
circle (200,260,25);
line (175,320,130,250);
line (230,320,275,250);
{глаза и рот}
setbrushcolor (clblack);
circle (190,254,3);
circle (210,254,3);
circle (200,263,2);
circle (200,276,4);
{ведро}
line (165,255,175,255);
line (225,255,235,255);
line (165,255,180,200);
line (235,255,220,200);
line (180,200,220,200);
{украшения на елку}
line (350,325,350,340);
circle (350,350,10);
line (450,300,450,315);
circle (450,325,10);
line (400,250,400,270);
circle (400,280,10);
{елка}
setbrushcolor(clgreen);
line (300,400,400,100);
line (500,400,400,100);
line (300,400,500,400);
line (380,400,375,450);
line (420,400,425,450);
line (425,450,375,450);
circle (300,925,500);
circle (0,0,150);
line (400,100,395,90);
line (400,100,405,90);
line (405,90,415,85);
line (415,85,405,80);
line (400,70,405,80);
line (400,70,395,80);
line (395,80,385,85);
line (385,85,395,90);
floodfill(400,150,clgreen);
floodfill(400,401,clbrown);
floodfill(167,254,clgray);
floodfill(176,2,cllightblue);
floodfill(300,450,clwhite);
floodfill(1,1,clyellow);
floodfill(401,90,clyellow);
setpencolor(clblue);
x:=1;
repeat
floodfill(350,350,clred);
sleep(15);
floodfill(450,325,clorange);
sleep(15);
floodfill(400,280,clblue);
sleep(15);
floodfill(350,350,clyellow);
sleep(15);
floodfill(450,325,clblue);
sleep(10);
floodfill(400,280,clmoneygreen);
sleep(15);
x:=x+1;
until x=10000000000;
circle (200,210,25)
end.
