function Add(a,b: integer): integer;
begin
  Result := a + b
end;