program z6_28;
var
a:array[0..100,0..100] of integer;
n,m,i,j : integer;
begin
write('Ââåäèòå êîëè÷åñòâî ñòðîê â ïîëå ');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ â ïîëå ');
readln(m);
for i:=n downto 1 do
a[i,1]:=1;
for j:=1 to m do
a[n,j]:=1;
for i:= n-1 downto 1 do
for j:=2 to m do
a[i,j]:=a[i,j-1]+a[i+1,j];
writeln('êîëè÷íñòâî âîçìîæíûõ ïóòåé ÷åðåïàøêè=',a[1,n]);
End.