unit Calculator;

interface

function sum(a, b: Double):Double;
function sub(a, b: Double):Double;

implementation

function sum(a, b: Double):Double;
begin
	sum := a + b;
end;

function sub(a, b: Double):Double;
begin
	sub := a - b;	
end;

end.