\\多項式運算（系數為1）
@子過程 pow 完成的是pow(x , subloop)的功能
const    Times = 6 ;
var       loop , x , result  , subresult ,subloop;
procedure   pow;
     begin
          subloop:=loop;
          subresult := 1 ;
          while  subloop >= 0 do
           begin
                 if   subloop # 0 then
                    subresult := subresult*x  ;
                 subloop:=subloop-1
           end;
     end;

begin  
       read(x) ;                      @讀入參與運算的自變量值
       write(x) ;                      
       
       result := 0 ; 
       loop:= 0 ;
       while  loop < Times do     @多項式的最高次為 Times - 1
          begin
                call pow ;                  @調用子函數
                result := result + subresult ;
                loop := loop+1 ;
          end ;
  write(result) ;                             @輸出結果

end.