├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...　├ 标准行输出 a=0.00...

　├ 错误行输出 a=-0.0...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：83 有效耗时：0ms

var

a:string;

b:array[1..10000] of string;

i,j,l,d,he1,he0:longint;

wzs:char;

procedure kao1(a:string;len:integer);

var

sz:longint;

code:integer;

begin

delete(a,len,1);

val(a,sz,code);

he1:=he1+sz;

end;

procedure kao0(a:string;len:integer);

var

sz:longint;

code:integer;

begin

val(a,sz,code);

he0:=he0+sz*(-1);

end;

procedure check(a:string);

var

len:longint;

begin

len:=length(a);

if a[len]=wzs then kao1(a,len)

else kao0(a,len);

end;

begin

readln(a);

for i:=1 to length(a) do

if (ord(a[i])>=97) and (ord(a[i])