Program n1; Uses CRT; Const a=9; Var x,y: real; begin ClrScr; Writeln('Vvedite X'); Readln(x); y:=2-x/12+abs(x)/a-sqrt(a); writeln(y:5:4); readln end.