RosettaCodeData/Task/Function-definition/PL-I/function-definition.pli

5 lines
98 B
Plaintext

PRODUCT: procedure (a, b) returns (float);
declare (a, b) float;
return (a*b);
end PRODUCT;