Объяснение:

Program zero;

Var x, y:Integer;

Begin

Whiteln('Введите аргумент:');

Readln(x);

If x<0 then

y:=x*x*x*x*x+2

else

If x=0 then

y:=10

else

y:=Sqr(x)+1;

Whiteln('Значение функции: ', y);

Readln

End.