```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 ```