Datu struktūras. Jautājumi un atbildes

Kas tiek izvadīts ekrānā šādas programmas fragmenta izpildes rezultātā?

...
bkods:=66;
s1^.strlen:=0;

for i:=1 to 12 do
begin
s1^.data[i]:=chr(bkods);
bkods:=bkods+2;
s1^.strlen:=s1^.strlen+1;
end;

s2^.strlen:=0;
...

for i:=3 downto 1 do
begin
s2^.data[i]:=chr(bkods);
bkods:=bkods-2*i;
s2^.strlen:=s2^.strlen+1;
end;

...
if(s2^.strlen>0) and (s2^.strlen+s1^.strlen <=30) then
begin
for i:=s1^.strlen downto 5 do s1^.data[i+s2^.strlen]:=s1^.data[i];
for i:=1 to s2^.strlen do s1^.data[5+i-1]:=s2^.data[i];
s1^.strlen:=s1^.strlen+s2^.strlen;
end;
...

for i:=7 to s1^.strlen do s1^.data[i-3]:=s1^.data[i];
s1^.strlen:=s1^.strlen-3;
for i:=1 to s2^.strlen do write(s2^.data[i]);…