A*B Problem

题意：

求两数的积。

输入输出格式

输入格式：

两个数

输出格式：

积

输入输出样例

输入样例#1：

1 
2

输出样例#1：

2

说明

需用高精

const

  maxn=2600;
var
  a,b:array[-1..maxn] of longint;
  c:array[-1..2*maxn+1]of longint;
procedure  init;
  var
    s1,s2:ansistring;
    len,len1,i:longint;
begin


  readln(s1);
  readln(s2);
  len:=length(s1);
  len1:=length(s2);
  for i:=len downto 1 do
    a[len-i+1]:=ord(s1[i])-ord('0');
  for i:=len1 downto 1 do
    b[len1-i+1]:=ord(s2[i])-ord('0');
end;


procedure add;
var
  i,j,s:longint;
begin
  for i:=1 to maxn do
    for j:=1 to maxn do
       begin
         c[i+j-1]:=c[i+j-1]+a[i]*b[j];
         c[i+j]:=c[i+j]+c[i+j-1] div 10;
         c[i+j-1]:=c[i+j-1] mod 10;
       end;
end;


procedure prain;
var
  i,j,k:longint;
begin
  i:=maxn;
  while (c[i]=0) and (i>1) do dec(i);
  for j:=i downto 1 do
    write(c[j]);
end;
begin
  init;
  add;
  prain;
end.