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

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