Arduino Coffin Dance-Astronomia Arduino

void setup()
{
  pinMode(13,OUTPUT);///alarm output
  delay(1000);
}
void loop()
 {
 
   tone(13, 370, 300);
    delay(400);
   tone(13, 370, 300);
    delay(200);
    tone(13, 554, 300);
    delay(200);
    tone(13, 494, 300);
    delay(400);
    tone(13, 440, 300);
    delay(400);
    tone(13, 415, 300);
    delay(400);
    tone(13, 415, 100);
    delay(200);
    tone(13, 415, 100);
    delay(200);
    tone(13, 494, 300);
    delay(400);
    tone(13, 440, 300);
     delay(200);
     tone(13, 415, 300);
     delay(200);
     tone(13, 370, 300);
     delay(400);
     tone(13, 370, 300);
delay(200);
     tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
      tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
     tone(13, 880, 300);
     delay(200);

      tone(13, 370, 300);
       delay(400);
   
     tone(13, 370, 300);
delay(200);
     tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
      tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
     tone(13, 880, 300);
     delay(200);

  tone(13, 370, 300);//g
    delay(400);
   tone(13, 370, 300);//g
    delay(200);
    tone(13, 554, 300);
    delay(200);
    tone(13, 494, 300);
    delay(400);
    tone(13, 440, 300);
    delay(400);
    tone(13, 415, 300);
    delay(400);
    tone(13, 415, 100);
    delay(200);
    tone(13, 415, 100);
    delay(200);
    tone(13, 494, 300);
    delay(400);
    tone(13, 440, 300);
     delay(200);
     tone(13, 415, 300);
     delay(200);
     tone(13, 370, 300);
     delay(400);
     tone(13, 370, 300);
delay(200);
     tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
      tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
     tone(13, 880, 300);
     delay(200);

      tone(13, 370, 300);
       delay(400);
   
     tone(13, 370, 300);
delay(200);
     tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
      tone(13, 880, 300);
     delay(200);
     tone(13, 831, 300);
     delay(200);
     tone(13, 880, 300);
     delay(200);

tone(13, 440, 100);
delay(200);
tone(13, 440, 100);
delay(200);
tone(13, 440, 100);
delay(200);
tone(13, 440, 100);
delay(200);

tone(13, 554, 100);
delay(200);
tone(13, 554, 100);
delay(200);
tone(13, 554, 100);
delay(200);
tone(13, 554, 100);
delay(200);

tone(13, 494, 100);
delay(200);
tone(13, 494, 100);
delay(200);
tone(13, 494, 100);
delay(200);
tone(13, 494, 100);
delay(200);

tone(13, 659, 100);
delay(200);
tone(13, 659, 100);
delay(200);
tone(13, 659, 100);
delay(200);
tone(13, 659, 100);
delay(200);

tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);
tone(13, 740, 100);
delay(200);

 tone(13, 494, 300);
 delay(200);
 tone(13, 440, 300);
  delay(200);
  tone(13, 415, 300);
  delay(200);
  tone(13, 330, 300);
  delay(200);
  tone(13, 370, 300);
    delay(25);
 
 
  }