Quest D (December 2012)

//Длинная задача
var s:string; dT:integer;
ch1,ch2:array[1..20] of char;
a,b,i:integer;
d,otv:longint;
c:char;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
  read(f1,c);
  while not eof(f1) do begin
     a:=0; read(f1,c);
     while c<>')' do begin
       a:=a+1;
       read (f1,c);
      end;

    s:='';
    read(f1,c);
    while (c<>'(') and (c<>#26) do
      begin
         s:=s+c;
         read(f1,c);
      end;
   val(s, d, Dt);
otv:=otv+a*d;
  end;
  close(f1);
  rewrite(f2);
  writeln(f2,otv);
  close(f2);
  end.