“每3個空瓶可以換1瓶可口可樂。”用編程pascal解決此問題

n,s,a:longint;

begin

s:=0;

read(n);

inc(s,n);

while n>=3 do

begin

a:=n mod 3;

n:=n div 3;

inc(s,n);

inc(n,a);

end;

writeln(s);

end.