Составить алгоритм (икт): .
описание +схема .
ну или хотя бы программу

uses Math; var  x, f: real; begin  Write('Введите x: ');  Read(x);    if (x < 0) then    f := Power(x, 2.0) - 3 - Sin(x)  else if ((x >= 0) and (x < 1)) then    f := Power(Power(x, 2.0) + 3, 2.0) - Cos(x)  else if (x >= 1) then    f := x * (Power(x, 2.0) + 3);    Writeln('f(x) = ', f);end.