{   Special judge program for P1 (a foo example, not really needed here!)    }
{                                                                            }
{      Return codes: 0 - Accepted                                            }
{                    1 - Presentation Error (not used here)                  }
{                    2 - Wrong answer                                        }

program judge_for_p1(input,output);

var
  input_pta:real;
  str_euro, team_euro:string[255];
  fin:text;

begin
  assign(fin, 'p1.in');
  reset(fin);            { open test inputs }

  while not eof(fin) do begin
    readln(fin, input_pta);     { read test input }

    if eof(input) then halt(2);
    readln(input, team_euro);          { read team answer }

    str(input_pta / 166.386:1:2, str_euro);
    if str_euro<>team_euro then halt(2); { compare }
  end;

  halt(0); { all test inputs match: Accepted! }
end.