6.txt

pl0

var a;
begin
   a:=1;
   if a=1 then write(1);
   a:=a-1 ;
   if a=0 then write(-1);
end.