题目描述
又是周四了，kk又是很早的到了教室，开始一天的学习，不过，他的概率论作业还没有写完。由于有一道题的数字比较大，上星期周四kk在做作业的时候就直接写了个式子，没有算出来。当然，kk是不知道这个数字到底是多大的。现在，就是你帮助kk的时候了。kk有个好习惯，所有答案都化成一个分数，分母和分子都是许多个整数的积，现在，你需要告诉kk，这个分数化成既约分数的结果（既约分数就是分子分母最大公约数为1的分数）。
输入
输入一共两行，第一行第一个数为分子上的整数个数n1，之后有n1个整数，第二行第一个数为分母上的整数个数n2，之后n2个整数，答案分母不会为0，每两个整数之间有一个空格隔开。
输出
输出共两行，第一行为既约分数的分子，第二行为分母，输出精确值。注意，如果分数值为0，那么输出分子为0，分母为1。
样例输入
2 1 4
3 4 5 6
样例输出
1
30
数据范围限制
数据范围
0
vara:array[2..1000] of longint;n,i,j,t:longint;f:array[1..2,0..5000] of longint;
procedure main;
beginread(n);for i:=1 to n dobeginread(t);j:=2;if t=0 then begin writeln(0);writeln(1);halt;end;while(t>1)and(j<=1000)dobeginwhile t mod j=0 dobegin inc(a[j]);t:=t div j;end;inc(j);end;end;read(n);for i:=1 to n dobeginread(t);j:=2;while(t>1)and(j<=1000)dobeginwhile t mod j=0 dobegin dec(a[j]);t:=t div j;end;inc(j);end;end;
end;
procedure cf(x,y:longint);
vari,t:longint;
begint:=0;for i:=1 to f[x,0] dobeginf[x,i]:=f[x,i]*y+t;t:=f[x,i] div 10;f[x,i]:=f[x,i] mod 10;end;while t>0 dobegininc(f[x,0]);f[x,f[x,0]]:=t mod 10;t:=t div 10;end;
end;
beginassign(input,'count.in'); reset(input);assign(output,'count.out'); rewrite(output);main;f[1,0]:=1;f[2,0]:=1;f[1,1]:=1;f[2,1]:=1;for i:=2 to 1000 doif a[i]>0 thenfor j:=1 to a[i] do cf(1,i)elsefor j:=1 to abs(a[i]) do cf(2,i);for i:=f[1,0] downto 2 dowrite(f[1,i]);writeln(f[1,1]);for i:=f[2,0] downto 1 dowrite(f[2,i]);close(input);close(output);
end.
