begin
assignfile(f1,'c:\1');
assignfile(f2,'c:\2');
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
while not eoln(f1) do
begin
read(f1,test);
len:=length(test);
for i:=1 to len do
begin
a:=test[i];
b:=ord(a);
str(b,c);
if length(c)<2 then c:='00'+c else
if length(c)<3 then c:='0'+c;
write(f2,c);
end;
end;
readln(f1);
writeln(f2);
end;