Ответ:

• var a,b,c: integer;
• procedure f(a1,b1,c1: integer);
• begin
• if (a1=a) and (b1=b) then c:=c+1;
• if (a1<>a) and (c1<>0) then f(a1+1,b1,0);
• if b1<>b then f(a1,b1+1,1);
• end;
• begin
• Read(a,b);
• f(0,0,10);
• Write(c);
• end.

Пример работы:

0110 1010 0101