6.txt

来自「pl0」· 文本 代码 · 共 7 行

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