program game;type st=array[0..30] of longint;var ans:st;f:array[1..80,1..80] of st;a:array[1..80] of longint;m,n:longint;procedure add(var x:st;y,z:st);var temp,i:longint;begin temp:=0; if y[0]>z[0] then x[0]:=y[0] else x[0]:=z[0]; for i:=1 to x[0] do begin
temp:=y+z+temp;
x:=temp...
