unit frq;

 interface

 function note2freq(note:byte):real;

 implementation

 function note2freq(note:byte):real;
 var
  nr                    : real;
  fr                    : real;
 begin
 nr:=note;
 fr:=440*(exp(((nr-57)/12)*ln(2)));
 note2freq:=fr;
 end;

 end.