Tg(4-x)
корень из |x| x= -8.125
паскаль !

program MatFormula;

uses

 Math;

var

 x: Double;

begin

 Write ('Введите X: ');

 ReadLn (x);

 WriteLn ('Tg (4-x) = ', Tan (4 - x));

 Write ('Введите X: ');

 ReadLn (x);

 WriteLn ('Корень из модуля X = ', Sqr (Abs (x)) );

 ReadLn;

end.