var n, m:longint;
label m1;
begin
readln (n);
m:=500;
m1:
If n div m >0 then begin
writeln (m, ' x ', n div m); //выводит номинал х кол-во
n:=n mod m;
end;
case m of
500: begin
      m:=100;
      goto m1;
      end;
100: begin
      m:=50;
      goto m1;
      end;
50: begin
      m:=10;
      goto m1;
      end;
10: begin
     m:=5;
     goto m1;
     end;
5: begin
     m:=1;
     goto m1;
     end;
else 
end;
end.