\\輸入輸出，函數的調用，條件語句的使用
const  a = 10 ;
var      b , c ;
procedure p;
      begin
             c := b + a ;
             
      end;
      
begin
	read(b) ;
	write(b) ;
        write(2+3*4-1) ;                \\輸出一個表達式的運算結果
	if  b = 0  then                 \\如果 為零，執行下面的語句；否則跳過
	    begin
	         read(b) ;
	         write(c)
	    end ;
                 call p ; 
  
end.