Ust_Pch1:=WORD_TO_REAL(P5_00r1)/100;
IF Ust_Pch1<>0 THEN
P5_00wr1:=P5_00r1;
END_IF