external;

{$I "Crt.i"}

procedure Bell;
begin
   Write(Chr($07));
end;