codevs 高精度乘法 3117

题目描述 Description
给出两个正整数A和B，计算A*B的值。保证A和B的位数不超过500位。


输入描述 Input Description
读入两个用空格隔开的正整数


输出描述 Output Description
输出A*B的值


样例输入 Sample Input
3 12


样例输出 Sample Output
36


数据范围及提示 Data Size & Hint

两个正整数的位数不超过500位

代码：

const
  maxn=1000;
var
  a,b,c:array [1..maxn] of longint;
  s1,s2:ansistring;
procedure init;
var
  i:longint;
begin
  readln(s2);
  for i:=1 to length(s2) do
    if s2[i]=' ' then
      begin
        s1:=copy(s2,1,i-1);
        delete(s2,1,i);
        break;
      end;
end;
function ggc(s1,s2:ansistring):ansistring;
var
  i,j,lena,lenb,lenc,temp:longint;
  s:ansistring;
begin
  lena:=length(s1