test-operator2.p

PROGRAM foo(input, output, error) ;
   // this test checks various operators

   var a, b, c: integer;
   var d, e: array [ 1 .. 10 ] of integer; 

   begin
      // assignment statement
      a := 6;
      b := a * 15;  
      
      // simple if statement
      if b > a then a := a * 2 
               else a := a * 3;  
      
      // nested if statement
      if b > a then if b < a - 2 then a := a * 5 
                                 else a := a * 7 
               else a := a / 11 * a;
      
      // nested if statement
      if b > a then a := a * 2 
               else if b > 5 + a then a := 23 - a
                                 else a := 948 / b;
                                 
      // simple while statement
      while b > a do a := a * 7;  
       
      // compound statement
      while b > a do begin b := b + 3; a := a * 7 end;  
       
      // nested while statement
      while b > a do 
            while c > a + b do 
            begin b := b + 3; a := a * 7 end         
      
   end.   // this is the end of the program