//uses math; //раскомментировать для freepascal; function getY(x: real): real; var res: real; begin if x < 0 then res := exp(Cos(x)); if (x >= 0) and (x <= 4) then res := -2 * x; if x > 4 then res := sqrt(abs(tan(x * x - 1))); getY := Round(res * 1000) / 1000; end; procedure getRes(x: real; var res: real); begin if x < 0 then res := exp(Cos(x)); if (x >= 0) and (x <= 4) then res := -2 * x; if x > 4 then res := sqrt(abs(tan(x * x - 1))); res := Round(res * 1000) / 1000; end; var y, res: real; xarr: array[1..10] of real; i: byte; begin for i := 1 to 10 do read(xarr[i]); for i := 1 to 10 do begin y := getY(xarr[i]); getRes(xarr[i], res); writeln(xarr[i]:10:3, ' ', y:10:3, ' ', res:10:3); end; readln;readln; end.