program Zadacha12;
{$APPTYPE CONSOLE}
var i,k,ChVM,n:integer;n1:real;
begin
writeln('Vvedit kilkist muh');
readln(n);n1:=n/10;
writeln('Vvedit kilkist hvylyn');
readln(k);ChVM:=1;
for i:=1 to k do begin
if n<n1 then
ChVM:=2*ChVM;end;
readln;
end.