5 lines
98 B
Text
5 lines
98 B
Text
|
PRODUCT: procedure (a, b) returns (float);
|
||
|
|
declare (a, b) float;
|
||
|
|
return (a*b);
|
||
|
|
end PRODUCT;
|