СД
Сергей Денисеня
begin
x:=0.1;
writeln(cas(x) / sin(x) + sqrt(cas(x)));
readln;
end;
var x:real; begin readln(x); writeln(cos(x)/sin(x)+sqrt(cos(x)):0:7); readln end.
Надеюсь, это именно ctg(x)+√cos(x) и скобки ты не забыла...