Проверьте правильность программы на паскале
 

Program lab2;
Var a,b,c,x,y:real;
Fy:double
begin
writeln('Введите x');
readln(x);
if (x=0) or (sin(x)=-1) or (sqr (Ln)>0) then
begin
writeln ('Решений нет');
else
a:=(sqr*(cos(x)));
b:=(1+sin(x));
c:=(sqr(ln))*(x/exp(1/3*ln(x-1))));
y:=(a/b)-c;
if y>0 then Fy:=1'
if y=0 then Fy:=0;
if y<0 then Fy:=-1;
writeln (Fy);
end;
end.

Выложите задание.

Да бросьте Вы, Анжелика, - будет он ради нашего удобства лишний раз утруждаться! И вообще, скорее всего, появится этот Димончик здесь через месячишко-другой - такая уж у него жлобская манера. Ни толики пиетета к нам. Я уж давно не имею дела ни с ним, ни с ему подобными субъектами. Даже списочек составил. И Вам не советую впустую время тратить. Не говоря уже о том, что самостоятельная отладка таких простеньких программок - самое то для начинающего программиста. Если, конечно, там есть хоть малейшее желание чему-то научиться.

P.S. А это "or (sqr (Ln)>0)", конечно, шедевр в своем роде. :D:D:D

Да, я заметила за ним такое.

Составить программу
вычисления величины y(x) и F(y)
Y=(cos^2(x)/1+sin(x))-Ln^2(X/кубический корень из (x-1))