6.out

pl0

   0  var a;
   1  begin
   2     a:=1;
   4     if a=1 then write(1);
  10     a:=a-1 ;
  14     if a=0 then write(-1);
  21  end.