Программа на Turbo Pascal будет выглядеть следующим образом:

program CalculateFunction;
uses crt, math;
var a, c, x, b: real;
begin
clrscr;
write('Enter the value of a: ');
readln(a);
write('Enter the value of c: ');
readln(c);
b := a + sqr(c);
x := cos(b) / (sqrt(b) + 5);
writeln('The result of the function is: ', x:0:2);
readkey;
end.

Пользователю будет предложено ввести значения переменных a и c, затем программа вычислит b по формуле b=a+c^2 и результат функции x=cos(b)/корень(b+5). Результат будет выведен на экран с двумя знаками после запятой.