Создать алгоритм и программу нахождения значения функции: f = 2у + √ y + 4 если у= е^sinx +cos x для серии значений х=3,9; х= 5. кто умеет это делать

Программа - это один из записи алгоритма, поэтому "Создать алгоритм и программу" - некорректная формулировка.
Программа на паскале:
var x,y:real;
begin
x:=3.9;
y:=exp(sin(x))+cos(x);
write('x = ',x,'  y = ',y);
if y>=0 then writeln(',  f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена');
x:=5;
y:=exp(sin(x))+cos(x);
write('x = ',x,'  y = ',y);
if y>=0 then writeln(',  f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена');
end.

Результат:
x = 3.9  y = -0.223234541662775, функция f не определена
x = 5  y = 0.666967180635498,  f = 6.150614947936