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

Program 1; var y,x,a,b: integer; beginwriteln ('введите 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) Надеюсь на спасибо и лучший ответ