Вот программа, основные моменты объяснены в комментариях:

Program Primer;

Var x,y:real;     {вводим  2 переменные}

Begin

   Write('Введите x:');

   Readln(x);    {вводим значение аргумента функции}

   If x>0             {если x>0}

       then y:=x*x-2      {то значение y вычисляем по формуле у = x^2 – 2 }

       else If x=0         {если x=0}

                 then y:=0          {то значение y вычисляем по формуле у = 0 }

                else y:=abs(x);   {в оставшемся случае, т.е.x

  Writeln('y=',y);   {выводим значение y на экран}

End.