RosettaCodeData/Task/Function-definition/Pascal/function-definition.pascal

function multiply(a,b: real): real;
begin
  multiply := a*b;
end;