Из перечисленных деяний объективную сторону воспрепятствования законной профессиональной деятельности журналистов

Написал программу на Паскале. с расширением pas.

var
a:array[2..14] of integer;
i:byte;
begin
a[2]:=100;
for i := 3 to 14 do
a[i]:=a[i-1]*2;
writeln(a[14] div 1000,',',a[14] mod 1000,'кг');
readln;
end.