{Teste operador logico a mais}
programa test1;

var a,b,c: inteiro;

{proc 1}
procedimento analisa1;
var a, x: inteiro;
       z: booleano;
inicio
  se x>1  entao
      x:= 0;
  leia(z);
  enquanto (a <> 89) e (a<= 1000) ou {condicao de parada}
  faca inicio
           a:= x+z
       fim;
  escreva(a)
fim;


procedimento analisa2;
inicio
  leia(a);
  b:= a*a+(c div b) 
fim;

inicio
    analisa1;
    analisa2;
    se b > (c+ a*a)
    entao escreva(b)
    senao escreva(c)
fim.

{fim}