programa teste; {ERRO - expressao nao booleana} 
var x,a,b,c,z:inteiro; 
            
inicio 
 x:=1; 
 a:=2; 
 b:=3; 
 c:=7; 
 z:=1; 
 se (x+a*b)          {ERRO - express??o nao booleana} 
 entao escreva(x) 
 senao escreva(a) 
fim.