Программа на языке Pascal, которая вычисляет значения функции k и их соответствующие значения аргумента d в заданных диапазонах:

program FunctionValues;
var
a, b, d, h: Real;
k, result: Real;
begin
a := 1; // нижняя граница диапазона функции
b := 10; // верхняя граница диапазона функции
h := 0.5; // шаг
for d := -3 to 3 step h do
begin
result := 4.3 * (sin(exp(1/d) + 2) / (2.1 + d)) - 6.7 * d;
if (result >= a) and (result <= b) then
writeln('k(', d:0:2, ') = ', result:0:2);
end;
end.

Эта программа вычисляет значения функции k для всех значений аргумента d в диапазоне [-3, 3] с шагом 0.5 и выводит на экран только те значения функции, которые лежат в диапазоне a до b. Вы можете изменить значения a, b и h в соответствии с вашими требованиями.