var a:integer;beginreadln(a);if a<=12then writeln(0)else
case a of
13:writeln(1);
14:writeln(2);
15:writeln(8);
16:writeln(9);
17:writeln(6);
18:writeln(9);
19:writeln(29);
20:writeln(39);
21:writeln(38);
22:writeln(65);
23:writeln(88);
24:writeln(128);
end;e...
