```pascal
FUNCTION "FrictionLoss" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      i_Flow : Real;
      i_K : Real;
      i_Dens : Real;
   END_VAR


BEGIN
	
	
	  #FrictionLoss := (#i_Flow * #i_K * #i_Flow * #i_K )* #i_Dens ;
	
	
END_FUNCTION


```