{Teste sem procedimentos - deve compilar}
programa test1;

var a,b,z: inteiro;
x: booleano;

inicio
a:=1;
b:=2;
z:=3;
x:= -x + a * b;
se x entao
escreva(a)
senao escreva(b)
fim.

{fim}