1.txt

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

var a,b,c;
begin
 read(b);
 for a:=b downto 1 do b--;
 write(b); 
end.