fa1.tmp

对pl0的功能扩充 += -= -- for else

Iput pl/0 file ?y
0 var a,b,c;

0 begin

0  read(b);

0  for a:=b downto 1 do b--;

0  write(b); 

0 end.