/------------------------------------------------\
| program                                        |
--------------------------------------------------
| //變量定義(可有可無(wú))                           |
--------------------------------------------------
| begin                                          |
--------------------------------------------------
| //函數(shù)定義(可有可無(wú))                           |
--------------------------------------------------
| //程序體即語(yǔ)句序列(可有可無(wú))                   |
--------------------------------------------------
| end.                                           |
\------------------------------------------------/

example:
-------------------------------------------------
program  //jjjj
//變量定義（可有可無(wú)）

begin

//函數(shù)定義(可有可無(wú))

procedure my (integer i,j)
logical b2,b3
begin
	procedure myy (integer i,j)  //嵌套定義
	logical b2,b3
	begin

	end
end

procedure mry (integer i,j)     //平行定義
logical b2,b3
begin

end

//語(yǔ)句

call my 1 i;  //函數(shù)調(diào)用語(yǔ)句
call myy 1 3

end.
--------------------------------------------------
//-------------if語(yǔ)句--------------------\
//if b1 then                             |
//	 a1:=4;                          |
//	 else                            |
//	 a2:=5;                          |
//	 if b1 then                      |
//		a1:=a1+a2                |
//	 else                            |
//		a1:=a1-a2                |
//	 end                             |
//end                                    |
//---------------------------------------/

//-------------repeat語(yǔ)句----------------\
//                                       |
//repeat                                 |
//	a1:=a2                           |
//until                                  |
//	b1                               |
//---------------------------------------/

//-------------write語(yǔ)句-----------------\
//write a1+a2-4                          |
//---------------------------------------/

//-------------read語(yǔ)句------------------\
//read a1                                |
//---------------------------------------/

//-------------while語(yǔ)句-----------------\
//while a1=3                             |
//do                                     |
//a2:=a1;                                |
//a1:=a1-1                               |
//end;                                   |
//---------------------------------------/

//------------函數(shù)-----------------------\
//procedure my(integer a1,a2)            |
//integer a3                             |
//begin                                  |
//	procedure myy(integer a5,a6)     |
//	integer a4                       |
//	begin                            |
//		a4:=a1+a2                |
//	end                              |
//                                       |
//	a3:=a1+a2                        |
//end                                    |
//                                       |
//call my 1 3                            |
//---------------------------------------/

//-------------for語(yǔ)句 ------------------\
//for a1 from 1 to 6                     |
//do                                     |
//read a2;                               |
//write a2                               |
//end                                    |
//---------------------------------------/