program loe;
var 
 s: string;
 f: text;
 x, sum: real; viga: integer;
begin
 assign(f, 'arvud.txt');
 reset(f);
 sum:=0;
 while not eof(f) do
 begin
  readln(f, s);
  val(s, x, viga);
  if viga=0 then sum:=sum+x;
 end;
 writeln('Summa=', sum:5:2);
 close(f);
end.