//                 Author  :  Tuwei                                               //
//                 Copyright All Reserved                                         //
//                                                                                //
//                 Function:  錯誤檢測能力. 多個錯誤準確報出                      //
////////////////////////////////////////////////////////////////////////////////////
program
  integer a;
  logical b;

  procedure dd;
  begin
     wrte 4;
  end;  


  b := fale;
  a := ;  
  write a*5

  if a>4 
   a := 4;
   write 5;   
   write 6;
  end;
   
   while b and true 
   write 5;
  end;

   repeat 
       a := 5;    write 5;
 end.