本人刚开始干NOIP这行，因此超菜，连个高精乘都搞不清楚，请不要见笑！

4位存储：

program gaojingcheng;

var

lena,lenb,lenc:integer;

f:boolean;

sa,sb:string;

a,b,c:array[1..maxint] of longint;

procedure input;

var

n1,n2,n,i,x:integer;

s:string;

begin

readln(sa);

readln(sb);

val(copy(sa,1,2),n1);

val(copy(sb,1,2),n2);

if n1*n2>=0 then f:=true else f:=false;

if n1