Có thể mô tả thuật toán như sau, đặt biến a:=0.1, cho a nhân 2 liên tiếp, mỗi lần nhân cộng thêm vào một biến k, đến khi nào a=10000 thì xuất k.
Với ngôn ngữ Pascal, chương trình này có thể biểu diễn như sau:
uses crt;
var a,k: integer;
begin
a:=0,1;
k:=0;
while not a>10000 do
begin
a:=a*2;
k:=k+1;
if a=10000 then writeln('So lan phai gap to giay la ',k);
end;
readln;
end.