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.
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.