10

program Project10;

{$APPTYPE CONSOLE}

uses
    SysUtils;
var
    k, Numer: Extended;
    Stri, Answer: String;
    i, Len: Integer;
    IsCorrect: Boolean;
begin
    Readln(Stri);
    k := 1/8;
    Len := Length(Stri);
    for i := 3 to Len do
    begin
        Numer := Numer + StrtoInt(Stri[i]) * k;
        k := k / 8;
    end;
    Answer := FloattoStr(Numer);
    Len := 3 * (Length(Stri) - 2);
    i := Len;
    IsCorrect := false;
    repeat
        if Answer[i] = '0' then
        begin
            Delete(Answer, i, 1);
            Dec(i);
            Dec(Len);
        end
        else
            IsCorrect := true;
    until IsCorrect;
    Delete(Answer, 1, 2);
    Write(Stri, ' [8] = 0.', Answer,' [10]');
    Readln;
end.