Создать алгоритм и программу нахождения значения функции: 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