PascalABC.NET
begin
var a := 5;
var x := Readinteger('Введите x ->');
var f := x > 1 ? ln(x+1) : cos(x**2+2*10**-5);
Println('F = ', x = 1 ? sin(sqr(sqrt(abs(a*x)))) : f);
end.
PascalABC.NET
begin
var a := 5;
var x := Readinteger('Введите x ->');
var f := x > 1 ? ln(x+1) : cos(x**2+2*10**-5);
Println('F = ', x = 1 ? sin(sqr(sqrt(abs(a*x)))) : f);
end.