"Cada 3 botellas vacías se pueden cambiar por 1 botella de Coca-Cola." Utilice la programación pascal para resolver este problema.

var

n,s,a:longint;

comenzar

s:=0;

leer(n);

inc(s,n);

mientras n>=3 hacer

comenzar

a:= n mod 3;

n:=n div 3;

inc(s,n);

inc(n,a);

fin;

escritura(s);

fin.