{2:}{4:}{$mode iso}{:4}program HELLO(input,output);var{3:}n:integer;
{:3}{5:}str:array[0..999]of char;strstart:array[0..265]of integer;
strcount:integer;{:5}{9:}i:integer;
{:9}{:2}{6:}procedure print(n:integer);var i:integer;
begin{writeln('For ',n,' will print characters from ',strstart[n],' to '
,strstart[n+1]-1);}
for i:=strstart[n]to strstart[n+1]-1 do begin write(str[i]);end;end;
{:6}{7:}procedure initializestrarray;var poolfile:TextFile;x,y:char;
length:integer;i:integer;begin strcount:=0;strstart[0]:=0;
for i:=0 to 255 do begin str[i]:=chr(i);strstart[i+1]:=strstart[i]+1;
strcount:=strcount+1;end;Assign(poolfile,'hello.pool');Reset(poolfile);
while not eof(poolfile)do begin read(poolfile,x,y);
if x='*'then{8:}begin length:=ord(y)-48;
while not eof(poolfile)do begin read(poolfile,y);
if(48<=ord(y))and(ord(y)<=57)then length:=length*10+(ord(y)-48);end;
if length<>332216284 then begin writeln(
'Corrupted pool file: got length: ',length:1,
'; rerun tangle and recompile.');Halt(1);
end end{:8}else begin length:=10*(ord(x)-48)+ord(y)-48;
strstart[strcount+1]:=strstart[strcount]+length;
for i:=strstart[strcount]to strstart[strcount+1]-1 do begin read(
poolfile,str[i]);end;readln(poolfile);strcount:=strcount+1;end end;end;
{:7}{10:}begin initializestrarray;print(256);read(n);begin writeln;
print(257);end;write(n:1);begin print(258);writeln;end;
for i:=1 to n do begin begin print(259);writeln;end;end;print(260);
write(n:1);begin print(261);writeln;end;end.{:10}