PROCEDURE BEEP;

VAR I : INTEGER;

BEGIN
  FOR I := 1 TO 3 DO
    BEGIN
      SOUND(800);
      DELAY(50);
      SOUND(500);
      DELAY(50)
    END;
  NOSOUND;
END;