% TEST 1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG 
 BEGIN 
         VAR x; 
         x := 0;
         x := x + 1;
         PRINT(x)
 END  
ENDPROG 

% TEST 2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
	VAR x; VAR y; VAR z;
        READ(x); READ(y); READ(z);
        IF x > y THEN
           IF x > z THEN PRINT(x)
           ELSE
              PRINT(z)
        ELSE
           IF y > z THEN PRINT(y)
           ELSE
              PRINT(z)
  END
ENDPROG

% TEST 3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
        VAR x; VAR y; VAR z;
        READ(x); READ(y); READ(z);
        IF x > y THEN
           IF x > z THEN PRINT(x)
        ELSE
           PRINT(z)
  END
ENDPROG

% TEST 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
         VAR x;
         READ(x);
         WHILE NOT(x = 0) LOOP  
            PRINT(x) 
 END
ENDPROG

% TEST 5 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
         VAR x;
         READ(x);
         WHILE NOT(x = 0) LOOP  
            PRINT(x) 
 END;
ENDPROG

% TEST 6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 WHILE TRUE LOOP PRINT(42)
ENDPROG

% TEST 7 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
   VAR x, y, z;
   READ(x);
   y := x + 1;
   PRINT(y)
 END
ENDPROG

% TEST 8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN   
   VAR x; 
   VAR y; 
   READ(x); READ(y);
   PRINT(y + x)
 END
ENDPROG

% TEST 9 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG    
 BEGIN
         VAR x;
         VAR y;
         READ(x); READ(y);  
         BEGIN
                VAR z; 
                z := x;
                x := y;
                y := z
         END;
         PRINT(x);
         PRINT(y)
  END
ENDPROG

% TEST 10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN
  VAR x; VAR y; VAR r; VAR s;
  r := 0;
  WHILE NOT(r = y) LOOP
    BEGIN s := s+1; r := r+1 END;
    x := x - 1;
    PRINT(n)
 END
ENDPROG

% TEST 11 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG 
 BEGIN 
         VAR x; 
         VAR y; 
         VAR product;  
         product := 0;  
         READ(x); READ(y); 
         WHILE NOT(x = 0) LOOP  
         BEGIN 
                VAR z; 
                z := 0; 
                WHILE NOT(z = y) LOOP 
                BEGIN  
                        product := product + 1; 
                        z := z + 1 
                END
                x := x-1  
         END;  
         PRINT(product) 
 END  
ENDPROG 

% TEST 12 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG 
 BEGIN 
         VAR x; 
         VAR y; 
         VAR product;  
         product := 0;  
         READ(x); READ(y); 
         WHILE NOT(x = 0) LOOP  
         BEGIN 
                VAR z; 
                z := 0; 
                WHILE NOT(z = y) LOOP 
                BEGIN  
                        product := product + 1; 
                        z := z + 1 
                END; 
                x := x-1  
         END;  
         PRINT(product) 
 END  
ENDPROG 

% TEST 13 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG 
 BEGIN 
         VAR x; VAR y; 
         READ(x); READ(y); 
         BEGIN 
                VAR z; 
		z:= x;
         END;  
         BEGIN
		VAR w;
                BEGIN
			VAR x;
                        x:= z
		END;
		w: =x;
	 END
 END  
ENDPROG 

% TEST 14 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
PROG
 BEGIN x:= 666 END
ENDPROG