```pascal FUNCTION "TankLevelToHeight" : Real { S7_Optimized_Access := 'FALSE' } AUTHOR : 'Author' FAMILY : 'Function' NAME : 'Name' VERSION : 1.0 VAR_INPUT Level_Percentage : Real; Level_Perc0 : Real; Level_Height0 : Real; Level_Perc1 : Real; Level_Height1 : Real; END_VAR BEGIN IF #Level_Perc1 <> 0 THEN #TankLevelToHeight := (#Level_Percentage * (#Level_Height1 - #Level_Height0) / #Level_Perc1) + #Level_Height0 ; END_IF; #TankLevelToHeight := (#Level_Percentage * (#Level_Height1 - #Level_Height0) / #Level_Perc1) + #Level_Height0; END_FUNCTION ```