program project1;
var
 a, b, c, i, sum: integer;
 arr: array [1..20] of integer;
begin
  sum := 0;
  read(b,c);
  a := 2*b - 3*c;
  for i := 1 to 20 do
      arr[i] := random(100);

  if a > 0 then
     for i := 1 to 20 do
         sum += arr[i];

  if a = 0 then
    begin
     i := 1;
     while i <= 20 do
        begin
         if (arr[i] mod 2) <> 0 then
           sum += arr[i];
         i += 1;
        end;
    end;

  if a < 0 then
    begin
     i := 1;
     repeat
      if (arr[i] mod 2) = 0 then
         sum += arr[i];
     until i > 20 ;

    end;
  write(sum);
  readln;
end.