While I< 0 do I:= I+1; While I>0 do Begin I:= I+1; A:= A+1 End;
While I>0 do Begin I:= I+1; A:= A+1 End;
araujo@eng.uerj.br