program Strony_graficzne; uses crt,graph; var karta,tryb,x0,y0,x1,x2,y,r,nr:integer; begin r:=100; detectgraph(karta,tryb); initgraph(karta,tryb,'C:\szkola\bp\bgi'); setgraphmode(1); x0:=getmaxx div 2; y0:=getmaxy div 2; x1:=x0-100; x2:=x0+100; y:=y0+100; setfillstyle(1,white); setlinestyle(0,0,3); setactivepage(0); rectangle(x1,y0,x2,y); line(x0,y0,x0-r div 2,y0-r); floodfill(x0,y0+5,white); setactivepage(1); rectangle(x1,y0,x2,y); line(x0,y0,x0+r div 2,y0-r); floodfill(x0,y0+5,white); nr:=1; repeat if nr=0 then nr:=1 else nr:=0; setvisualpage(nr); sound(20); delay(100); nosound; delay(100); until keypressed; readln; setgraphmode(0); setcolor(14); setfillstyle(1,yellow); y0:=getmaxy div 2-10; setactivepage(0); outtextxy(x0,0,'N'); outtextxy(x0,getmaxy-10,'S'); outtextxy(0,y0,'W'); outtextxy(getmaxx-10,y0,'E'); line(x0,y0-2,x0-(r*2),y0); line(x0,y0+2,x0-(r*2),y0); line(x0,y0-2,x0,y0+2); floodfill(x0-3,y0,yellow); setactivepage(1); outtextxy(x0,0,'N'); outtextxy(x0,getmaxy-10,'S'); outtextxy(0,y0,'W'); outtextxy(getmaxx-10,y0,'E'); line(x0+5,y0,x0,y0-r div 2); line(x0-5,y0,x0,y0-r div 2); line(x0+5,y0,x0-5,y0); floodfill(x0,y0-3,yellow); setactivepage(2); outtextxy(x0,0,'N'); outtextxy(x0,getmaxy-10,'S'); outtextxy(0,y0,'W'); outtextxy(getmaxx-10,y0,'E'); line(x0,y0-2,x0+(r*2),y0); line(x0,y0+2,x0+(r*2),y0); line(x0,y0-2,x0,y0+2); floodfill(x0+3,y0,yellow); setactivepage(3); outtextxy(x0,0,'N'); outtextxy(x0,getmaxy-10,'S'); outtextxy(0,y0,'W'); outtextxy(getmaxx-10,y0,'E'); line(x0-5,y0,x0,y0+r div 2); line(x0+5,y0,x0,y0+r div 2); line(x0-5,y0,x0+5,y0); floodfill(x0,y0+3,yellow); nr:=0; repeat setvisualpage(nr); sound(1); delay(200); nosound; delay(200); if nr<>3 then nr:=nr+1 else nr:=0; until keypressed; end.