VAR
x ,n1, y,n2,gm,gd,k :INTEGER;
a,b,j,h,q,p,tt,p2,r,o,t,c1,s1:INTEGER;
a2,b2,j3,h2,tkh,tt2,w,z,c2,s2:INTEGER;
d1:array[1..2500] of INTEGER;
d2:array[1..2500] of INTEGER;
j2:array[1..2500] of INTEGER;
d3:array[1..2500] of INTEGER;
d4:array[1..2500] of INTEGER;
j4:array[1..2500] of INTEGER;
kh1:array[1..20] of INTEGER;
kh2:array[1..20] of INTEGER;
kh3:array[1..20] of INTEGER;
kh4:array[1..20] of INTEGER;