Решите пожалуйста в,г,д

var i,k: integer;     a: array[1..16] of integer;     priz: boolean;     st: string; begin   k:=0;  priz:=false;   st:='';   randomize;   writeln('исходный массив из 16 элементов');   for i:=1 to 16 do   begin     a[i]:=random(50)-30;     write(a[i],' ');     if a[i]<0 then k:=k+1;     if (a[i] mod 3) = 0 then     begin       priz:=true;       if i>9 then       st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','       else st:=st+chr(ord(i+48))+',';     end;    end;    writeln;   delete(st,length(st),1);   if k>0 then      writeln('кол-во отрицат. элементов = ',k);   if priz then      writeln('индексы элементов, кратных трем:  ',st)      else writeln('нет элементов, кратных 3');   readln; end.