begin
comment transform of string to real;
	string (20) s;
	real r;
	integer i, n, k, pos, posEnd;
	
	n := 20; comment max size of string
	r := 0;
	
	read(s); comment without spaces or sign in the beginning!;
	for i := 0 until n do
	begin
		if (s(i|1)<"0" or s(i|1)>"9") and (s(i|1) ~= ".") then 
		begin
			posEnd := i;
			goto finish;
		end;
		if s(i|1) = "." then pos := i
		else 
		begin
			k := decode( s(i|1) ) - decode("0");
			r := r * 10 + k;
		end;
	end;
finish: ;
	comment write(pos,posend);
	r := r / (10**(posend-1-pos) );
	write(r);
end.