Так должно работать:
VAR
qty_screen: DINT;
N_ek: BYTE:=1;
END_VAR

qty_screen:=GetWorkScreen(); (*вывод в светодиоды номера текущего экрана*)
Svit:=SHL(N_ek,qty_screen);

(проверить не могу)