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.