Для заданной функции k=(4.3sin(e (в степени 1/d) + 2)/d+2.1) - 6.7d вывести на экран значения функции, которые лежат в диапозоне a до b и соответствующие им значения аргумента на отрезке d (-3;3) с шагом h.

В чем проблема показывайте,что получилось, неважно работает или нет,а мы подумаем,как сделать,чтобы работало.

Program 1;
var k, d, h, a, b: real;
begin
repeat
write('vvedite a');
readln(a);
write('vvedite b');
readln(b);
write('vvedite h');
readln(h);
until (a<b) and (h>0) and (a<>0);
d:=-3;
while d<=3 do
begin
k:=4,3*((sin(exp(1/d))+2)/(d+2,1))-6,7*d;
if (k>a) and (k<b) then
writeln('d=', d:6:3, 'k=', k:6:3);
d:=d+h;
end;
end.

Предлагаю сделать скрипт, который распознаёт программный код и не даёт его отсылать без тега.