Program zadacha5;
Var k,n,m:iteger;  f1,f2:text;
Begin
assign (f1,'input.txt ');
assign (f2,'output.txt');
reset (f1);
rewrite(f2);
read(f1,n,m );
k:=15;
if m>=k and i<=n then


else
writeln (f2,' ');
close(f2);
close(f1);
end.