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