Пример в паскале

[doubled1]

День добрый, помогите дорешать пример
Сам пример:
Все в корне sin a+b^2/3-c/a-b
когда вписываю значение выдает ответ-бесконечность, знаю что нужно вписать "если" для а-b то, син равен 0 как-то так..

program primer;
begin;
var a,b,c: integer;
var x,y: real;
writeln ('1');
readln(x);
x:=(sin(x));
if (a-b)>0 then x:=1;
writeln('2');
readln (a);
writeln('3');
readln (b);
writeln('4');
readln (c);
y:= sqrt((sin(x))+(b*b/3)-c)/(a-b);
writeln('otvet',y);
end.

[min@y™]

Выражение вот это?

[Аватар]

Проверь: если a=b то решения не имеет
Отдельно вычисли выражение под корнем квадратным и если отрицательно, то тоже решения не имеет