uses Crt, DOS, GRAPH;

var
  a: array[1..4] of Char;
  b: Longint;

begin

CLRSCR;
Sound(100);
Delay(100);
Sound(200);
Delay(200);
Sound(300);
Delay(250);
Sound(400);
Delay(300);
Sound(500);
Delay(350);
Sound(600);
Delay(400);
sound(700);
Delay(500);
Sound(800);
Delay(500);
NoSound;
TEXTCOLOR (9);
CLRSCR;
WRITELN ('................................................................................');
TEXTCOLOR (14);
writeln ('                .ooOOOoOOoo.    CHEcK YoUR BRAiN    .ooOOoOOOoo.   ');
TEXTCOLOR (9);
WRITELN ('');
WRITELN ('................................................................................');


window (1,55,88,99);
sound(1000);
delay(1000);
sound(2000);
delay(1000);
nosound;
TEXTCOLOR (0);
READLN;
Move(a, b, SizeOf(a));
end.


