Найти значение выражения: S=(1+|x|) /√ (ax^2+bx+c) пожалуйста, очень нужно

Program n1; Uses CRT; Var x,a,b,c: integer; s: real; beginClrScr; Writeln ('vvedite x'); Readln (x); Writeln ('vvedite a,b,c'); Readln (a,b,c); S: =(1+abs (x) / (sqrt (a*sqr (x)+b*x+c); writeln (S: 4:4); readlnend.