PROGRAM SOUNDS; {let's see how the TONE procedure works}
VAR
  NOTE     : INTEGER;
  DURATION : INTEGER;

BEGIN
  DURATION := 500;
  NOTE := 1;
  TONE(NOTE,DURATION);
  NOTE := 3;
  TONE(NOTE,DURATION);
  NOTE := 5;
  TONE(NOTE,DURATION);
  NOTE := 8;
  TONE(NOTE,DURATION);
END.