Найти у,если дан х у={x^2,если x> 0 {x^3,если x< 0 {5x-3,если x=0

Var X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X*X)
   else if x=0 then Write('Y = ',5*X-3)
        else Write('Y = ',X*X*X);
End.

Хотя, если икс равен нулю, то писать 5*X вообще нет смысла, можно сократить до просто -3.