test5.java

S语言编译器的完整实现

procedure test;
  var	a,b,c,i:integer;
	begin
	  b:=1;
	  if a>b then
              c:=a+b
          else
              c:=a-b;
           for i:=0 to 3 do
                  begin
                     c:=i;
                  end; 
  end;