program cemb;
uses crt;
var k,n,b:integer;
a:real;
begin
clrscr;
write('Cymma BkJlada? ');
read(n);
write('%? ');
read(k);
if n>=1000000 then writeln('Tbl baHkpoT!') else
if k>=100 then writeln('Tbl Bce paBHo baHkpoT!') else
write(n*k/100+n);
a:=n*k/100+n;
if (a>=2*n) then write('1 rod') else
b:=1;
repeat
writeln(a+(a*k/100));
a:=(a+(a*k/100));
b:=b+1;
until a>=2*n;
writeln(b);
readln ;
end.