library Project1;

{$mode objfpc}{$H+}

uses
  SysUtils;

function soma(var a, b: Double): Double; cdecl;
begin
  Result := a + b;
end;

exports
  soma;

begin
end.
