MODULE Tenta$2$

VAR num Answer :$=0$;

VAR num Counter :$=0$;

$!$ Main program

PROC main$()$

WHILE Counter $<4$ DO

TEST Answer

CASE $0$:

Answer :$=1$;

CASE $1,2,3,4,5,6,7$:

Answer :$=$ Answer $+2$;

ENDTEST

Counter :$=$ Counter $+1$;

ENDWHILE

IF Answer $=3$ OR Answer $=6$ THEN

Answer :$=10$;

ENDIF

Counter :$=0$;

ENDPROC

ENDMODULE