Program algorithm2;
var
x,y:real;
m,n:array [1..5] of byte;
i,s,p:byte;
begin
writeln ('BBeDuTe x,y');
readln(x);
readln(y);
p:=0;
for i:=1 to 5 do
 begin
  m[i]:=trunc(x);
  n[i]:=trunc(y);
  x:=(x-m[i])*10;
  y:=(y-n[i])*10;
 end;
for i:=5 downto 2 do
 begin
  s:=m[i]+n[i];
  if s=3 then
     begin
      m[i]:=1;
      m[i-1]:=m[i-1]+1;
     end
  else
     begin
      if s=2 then
       begin
        m[i]:=0;
        m[i-1]:=m[i-1]+1;
      end;
     end;
  end;
writeln;
if ((s=1)or(s=0)) and (n[1]<>1) then writeln ('/7ePe/7oJIHeHue He proizoLLIJIo’)
                                else
                                 begin
                                  writeln('/7epe/7oJIHeHue /7pou3oLLIJIo');
                                  p:=1;
                                 end;
if p=1 then
       begin
       if n[1]=1 then write(0,'.')
                 else write(1,'.');
       end;
for i:=2 to 5 do
 begin
  write(m[i]);
 end;
 readln;
end.