clc
clear
disp("Kaliyah Johnson")

k = 0;
s = 0;

while s <= 10000
    k = k + 1;
    s = s + 3^k;
end

k
s