Используя довольно скудные сведения о том, что требуется сделать я подготовил программу для вывода всех a при b∈[-13;10] с шагом 1.

Program n_1;

var a:double; b:integer;

begin

   for b:=-13 to 10 do begin

       a:=3*b*b*b+4/7;

       writeln('При b=', b, ' a=', a:0:5);

   end;

end.