Const
     min: array [0..19] of longint =
          (0, 21, 42, 63, 24, 45, 6, 27, 48, 9, 30, 51, 12, 33, 54, 15, 36, 57, 18, 37);
     us:  array [0..19] of string[5] =
          ('0 0', '1 2', '0 7', '7 0', '0 4', '5 0', '0 1', '3 0', '0 6', '1 0',
           '0 5', '5 1', '0 2', '3 1', '6 0', '1 1', '4 0', '5 2', '2 0', '3 2');

Var
   m,n: longint;

Begin
     readln(input,n);
     m:= n mod 20;
     if (n<min[m]) then writeln(output, 'NO SE PUEDE')
                   else writeln(output, (n-min[m]) div 20,' ',us[m]);
End.