Y=( в числителе) под корнем х-ab ( в знаменателе) 1-х^2 паскаль

Program 1;
var y,x,a,b:integer;
begin
writeln('введите x,a,b');
readln(x,a,b);
y:=(sqrt(x-a*b))/(1-sqr(x))
writeln(y);
readln;
end.
Вот программа, а на паскале:
y:=(sqrt(x-a*b))/(1-sqr(x))
Надеюсь на и лучший ответ:)