Сколько единиц будет выведено на экран?

s := '123456';
while Length\(s\) > 0 do begin
Delete \( s, 1, 2 \);
writeln \( '1' \)
end;