Здравствуйте, nikita9581!

Смотрите код.
[code lang=pascal h=100]var
b,h,x,y:real;
begin
x:=-3;
repeat
write('enter b:=');readln(b);{вводим верхнюю границу}
until b>x;{проверяем чтобы было больше}
write('enter h:=');readln(h);{вводим шаг}
while x<=b do{цикл по переменной Х}
begin
y:=2.1*cos(sqr(x)-4)/(x+3.4)+x/sqrt(abs(x));{считаем значение}
if y>0 then writeln('x:=',x,'y:=':5,y);{если больше выводим}
x:=x+h;{следующий шаг}
end;
end.[/code]

Блок-схема сделана с помощью он-лайн построителя.

Удачи!