program MatFormula;
uses
Math;
var
x: Double;
begin
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Tg (4-x) = ', Tan (4 - x));
WriteLn ('Корень из модуля X = ', Sqr (Abs (x)) );
ReadLn;
end.
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.