uses graph,crt; type draw=record x:100..120; y:200..240; end; var gm,gd,x,y,i,size:integer; p:pointer; procedure pyshka; begin for i:=1 to 500 do putpixel(random(getmaxx),random(getmaxy),2); setbkcolor(14); setcolor(1); setfillstyle(solidfill,2); rectangle(120,320,250,350); floodfill(130,330,1); moveto(160,351); lineto(135,370); moveto(135,370); lineto(185,370); moveto(185,370); lineto(160,351); setfillstyle(solidfill,7); floodfill(140,369,1); arc(120,335,90,270,15); rectangle(135,370,185,380); setfillstyle(solidfill,11); floodfill(140,375,1); outtextxy(140,335,'PYSHKA'); moveto(140,320); lineto(140,305); end; procedure ball; begin setcolor(3); circle(x,335,10); delay(50000); setcolor(14); circle(x,335,10); end; begin gm:=detect; Initgraph(gm,gd,'a:/bgi'); size:=imagesize(250,324,274,346); getmem(p,size); getimage(252,324,274,346,p^); x:=263; pyshka; Sound(500);delay(20000);noSound; Sound(1000);delay(20000);noSound; Sound(2000);delay(20000);noSound; Sound(3000);delay(20000);noSound; Sound(4000);delay(20000);noSound; Sound(5000);delay(20000);noSound; {repeat ball; x:=x+15; until x>640;} x:=0; repeat putimage(x,324,p^,xorput); x:=x+15; putimage(x,324,p^,xorput); delay(1000); until x>639; freemem(p,size); readln; end. end.