pascal
Объяснение:
program func;
var x, y: real;
begin
Write('Введите значение аргумента x =
ReadLn(x);
y := 2 * (x + abs(sqr(x-1)));
WriteLn('Y(', x, ') = ', y:1:2);
end
