www.pudn.com > complier11111.rar > Test.pl0

/*这是一个测试程序*/ 
 
 
Program abc; 
 
  Integer x,y,z;  /*变量声明*/ 
  Real a,b; 
 
  Procedure ab(Var m,n:Integer; t:Real); /*过程*/ 
    Begin 
      t:=n+m; 
      If m>n then   /*条件语句*/ 
	 n:=m  
      else  
         t:=m; 
      While n4 then z:=0; /*条件表达式*/ 
  y:=219;  z:=37;  x:=y*z     /*赋值语句*/ 
End 
 
.  /*程序结束符*/