﻿var a,b: real;
begin
a := 3;
b := 0;
while a < 35 do
begin
  b += 1;
  a += a*0.06;
end;
writeln('1) ' + b);

a := 5;
b := 0;
while a < 100 do
begin
  b += 1;
  a += a*0.4;
end;
writeln('2) ' + b);
end.
