请用西门子PLC的SCL语言写一下 交通灯的控制程序

我可以写出一个交通灯的控制程序，如下：程序开始//设置输入变量
VAR_INPUT
Red_Light : BOOL;
Green_Light : BOOL;
Yellow_Light : BOOL;
END_VAR//设置输出变量
VAR_OUTPUT
Red_Light : BOOL;
Green_Light : BOOL;
Yellow_Light : BOOL;
END_VAR//程序主体
WHILE TRUE DO
//红灯亮
Red_Light := TRUE;
Green_Light := FALSE;
Yellow_Light := FALSE;
//延时5s
TON (IN:= TRUE, PT:= T#5s);
//黄灯亮
Red_Light := FALSE;
Green_Light := FALSE;
Yellow_Light := TRUE;
//延时2s
TON (IN:= TRUE, PT:= T#2s);
//绿灯亮
Red_Light := FALSE;
Green_Light := TRUE;
Yellow_Light := FALSE;
//延时5s
TON (IN:= TRUE, PT:= T#5s);
END_WHILE程序结束