Программа - это один из способов записи алгоритма, поэтому "Создать алгоритм и программу" - некорректная формулировка.
Программа на паскале:
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