{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1} program string2; {$APPTYPE CONSOLE} uses SysUtils; var s:string; i:integer; begin { TODO -oUser -cConsole Main : Insert code here } s:=''; for i:=1 to 1000005 do s:=s+inttostr(0); writeln(s); writeln(length(s)); readln; readln; end.