17倍（Times17）

题目：
在了解做软件开发可能赚很多的钱之后，农夫约翰也开了一家小的软件公司为客户写程序。约翰的第一个任务对他来说看起来相当简单：输入一个数N，然后输出17*N的值。但是现在，客户又变更了一个条件，输入的N是一个二进制数，输出的值也要是二进制表示的。
问题描述：
现在请帮助约翰完成这个任务。
输入格式：
一个二进制表示的数N。
输出格式：
二进制表示的17N。
输入输出样例：
times17.in 10110111
times17.out 110000100111

数据范围：N的位数不超过1000位。

说明：10110111相当于十进制的183，于是183*17=3111，二进制形式是110000100111 。

var
a,b,c:array[0..100000]of longint;
s,ss:ansistring;
len1,len2,len3,i,t,g:longint;
begin
read(s);
len1:=length(s);
for i:=1 to len1 do val(s[i],a[len1-i+1]);
ss:=s+’0000’;
len2:=len1+4;
for i:=1 to len2 do val(ss[i],b[len2-i+1]);
i:=1;
while (i<=len1) or (i<=len2) or (i<=len3)do
begin
if len3