RosettaCodeData/Task/Function-definition/Free-Pascal/function-definition.pas

function multiply(a, b: integer): integer;
begin
  exit(a * b);
end;