/*這是一個(gè)測試程序*/

Program abc;
  Integer x,y,z;  /*變量聲明*/
  Real a,b;
  array x[13,2], y[5];
  const  m=10,v=3.0, u=false;  
  function ab(Integer i,m;Real t) /*過程*/
    Begin
      t:=n+m;
      If m>n then   /*條件語句*/
	 n:=m 
      else 
         t:=m;
      While n<m do  /*循環(huán)語句*/
        Begin
          n:=n+1
        End     
    End
return m;

Begin   
  x:=1;y:=2;z:=3; a:=0.1; u:=false;       /*賦值語句*/
  write ab(x,y,z); read a;                /*write,read語句*/
  z:=4+z+(1-2+6+x)*0.3*y*5+7;	          /*復(fù)雜賦值語句*/
  If ~3<=x & y<>4 then z:=0 else x:=1 ;    /*條件表達(dá)式*/
  for i:=0+3 to 30-3 do x(5) ;            /*for語句*/
  while i<30 do begin x:=3; y:=5 end;     /*while語句*/  
  repeat x:=1 until x<y;                /*repeat語句*/
  ab(5)                                 /*函數(shù)語句*/
  
End.  /*程序結(jié)束符*/