var

n, m, i, stepen : integer;

ulaz, izlaz : Text;

begin

Assign(ulaz, ‘cifre.in’); Assign(izlaz, ‘cifre.out’);

Reset(ulaz); Rewrite(izlaz);

Read(ulaz, n);

WriteLn(izlaz, n);

m := n; stepen := 1;

While m > 0 do

begin

stepen := stepen * 10;

m := m div 10;

end;

stepen := stepen div 10;

While (stepen > 0) do

begin

Write(izlaz, (n div stepen) mod 10 : 3);

stepen := stepen div 100;

end;

Close(ulaz); Close(izlaz);

end.