Помогите написать код решения уравнения на паскале

program a1;
var a,b,c:real;
begin
writeln('введите sin x и cos x');
writeln('cos x не равно 3');
readln(a,b);
c:=sqrt((a-0.75)/(b-3));
writeln('Ответ:', c)
end.