Используя довольно скудные сведения о том, что требуется сделать я подготовил программу для вывода всех 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.