{ (c) 1998 CREEQ <creeq@web.de> }
program AN_DIE_FREUDE;
uses Crt;
begin
  clrscr;
  sound(330);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(349);
  delay(200);
  nosound;
  sound(392);
  delay(200);
  nosound;
  sound(392);
  delay(200);
  nosound;
  sound(349);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(294);
  delay(400);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(349);
  delay(200);
  nosound;
  sound(392);
  delay(200);
  nosound;
  sound(392);
  delay(200);
  nosound;
  sound(349);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(262);
  delay(400);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(330);
  delay(100);
  nosound;
  sound(349);
  delay(100);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(330);
  delay(100);
  nosound;
  sound(349);
  delay(100);
  nosound;
  sound(330);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(262);
  delay(200);
  nosound;
  sound(294);
  delay(200);
  nosound;
  sound(392);
  delay(400);
  nosound;

  readkey;
end.