[[Héctor Randolph]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
 π = 3.141592;
var
 β : Double;
begin
  β := cos(  π / 3 );
  ShowMessageFmt('Beta = %f',[β]);
end;

Increíble esto compila en Delphi 2007.