/*這是一個測試程序*/


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 n<m do  /*循環語句*/
        Begin
          n:=n+1
        End
    End;

Begin   
  x:=1;y:=2;z:=3; 
  Call ab(x,y,z);
  z:=4+z+(1+2+6+x)*3*y*5+7;
  If ~ 3<=x & y<>4 then z:=0; /*條件表達式*/
  y:=219;  z:=37;  x:=y*z     /*賦值語句*/
End

.  /*程序結束符*/