The value of x div y is the value of x/y rounded in the direction of zero to the nearest integer.
No additional description…
function ibec_div(Operand1, Operand2 : integer) : integer;
execute IBEBlock
returns (cout varchar(100))
as
begin
i = 1;
while (I < 50) do
begin
if ((i/2 - ibec_div(i, 2)) > 0) then
cout = i || ' is odd number';
else
cout = i || ' is even number';
suspend;
i = i + 1;
end
end