PROGRAM MAIN
VAR
	inObj AT%I* : INT;
	outObj AT%Q* : INT;
	glukoza : LREAL;
	insulina: LREAL;
END_VAR

-----------------------------------

glukoza := INT_TO_LREAL(inObj) * 500 / 16#7FFF;
outObj := LREAL_TO_INT(insulina * 16#7FFF / 100);