PROGRAM lebed; USES crt, GRAPH; const

PROGRAM lebed;
USES crt, GRAPH;
const freq:array[0..7] of word=(262,294,330,349,392,440,494,524);
VAR
DRIVER,REGIM,i:Integer;
a:byte;


BEGIN
DRIVER:=DETECT;
INITGRAPH(DRIVER,REGIM,'D:\PASKAL\BGI');

setbkcolor(5);
Textcolor(4+blink);

Setlinestyle(0,0,3);
Arc(215,125,0,60,60);
Line(165,290,230,185);
Arc(231,315,155,235,70);
Arc(275,255,233,270,145);
Line(276,400,465,385);
Arc(560,375,125,139,262);
Arc(560,375,125,141,300);
Arc(375,340,95,165,140);
Arc(375,340,105,140,160);
Arc(216,135,60,115,66);
Arc(236,185,114,126,116);
Arc(310,175,150,168,165);
Line(270,175,235,300);
Arc(220,170,80,105,60);
Line(148,160,150,210);
Line(170,175,150,210);
Arc(578,295,90,115,110);
Arc(578,295,98,127,155);
Arc(578,295,107,140,200);
Arc(375,100,328,358,150);
Arc(375,100,327,348,200);
Arc(375,100,320,335,225);
Arc(525,150,145,175,150);
Arc(525,150,135,155,100);
Arc(525,150,145,165,75);

for i:=1 to 20 do
begin
setfillstyle(1,9);
fillellipse(165,145,0,2);
delay(15000);
setfillstyle(1,6);
fillellipse( 165,145,2,2);
delay(15000);
end;

Setlinestyle(2,0,3);
if graphresult<>0 then halt(1);
Randomize;
repeat
setcolor(random(3));
Line(Random(GetMaxx),random(getmaxy),getx,gety);
lineto(Random(getmaxx),random(getmaxy));
linerel(50,-50);
until keypressed;


for i:=1 to 1000 do
putpixel(random(i),random(i),15);
repeat
until(keypressed);


begin
repeat
for a:=0 to 7 do begin
sound(freq[a]);
delay(15000);
nosound;
end
until keypressed;
readln;
closegraph;
end.