vark,n,i,j,top:longint;a,b:array[0..30000] of longint; procedure mul; vari,j:longint;a:array[0..30000] of longint; begin...