Program SoTien;
Uses Crt;
Var i, j, x, y, z; longint;
Begin
clrscr;
Write('Nhap so tien: '); Readln(i);
j:=0;
If i mod 100=0 Then
For x:=0 to i div 1000 do
For y:=0 to (i-1000*x) div 200 do
Begin z:=(i-1000*x-200*y) div 100;
Writeln(z,' x 100 +',y,' x 200 + ',x,' x 1000');
End;
readln;
End.