// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var x := ReadReal('x=');
var y: real;
if x >= 0 then y := Cos(x)
else
if x <= 1 then y := x * x - x</p>
else y := x * x - Sin(Pi * x * x) - 1;
Println('y=', y)
end.
Пример
x= -4.21
y= 21.9341
begin
var(a, x) := ReadReal2('Введите х и а:');
var F := 2 ** x + Ln(Abs(ArcTan(x) - Sin(a * x))) + Sqrt(x / (a * Pi));
Println('F=', F)
end.
Пример
Введите х и а: 2.16 3.7
F= 12.5835195753621