复件 test.txt

来自「一门课程的proj」· 文本 代码 · 共 9 行

PROGRAM	test ;
	INTEGER : test1 ; INTEGER : ARRAY test4 [ 2 , 2 ] ;
	BEGIN
		IF test1 < 0 THEN
			WHILE test2 < 10 DO
				test1 := 2 ;
		FOR test1 := test3 TO test1 DO
			ARRAY test4 [ 1 , 1 ] := 4 ;
	END.