не вопрос. If Sb1=true Then Km1 := 1; Else Km1:=0; End_if; всё остальное по рэ на сп и плк.
Правила форума