unit Calc;

interface

uses classes;

type
  TCalc = class(TObject)
    public
      function Add(val1,val2:integer):integer;
      function Sub(val1,val2:integer):integer;
  end;


implementation

{ TCalc }

function TCalc.Add(val1, val2: integer): integer;
begin
  Result:=val1+val2;
end;

function TCalc.Sub(val1, val2: integer): integer;
begin
  Result:=val1-val2;
end;

end.