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


BEGIN
	
	  
	  (* classic code: IF    #i_Valve <> 0.0 THEN*)
	  IF    #i_Valve <> REAL#0.0 THEN
	        #DeltaP := SQR(#i_Flow) * SQR(#i_K) / #i_Valve / #i_Valve ;
	  ELSE 
	        (* classic code: #DeltaP :=0.0;*)
	        #DeltaP :=REAL#0.0;
	  END_IF;
	
	
END_FUNCTION


```