Найти У,если дан Х

У={x^2,если x>0
{x^3,если x<0
{5x-3,если x=0

Ещё раз огромное вам спасибо!))

Var X:real;BeginWrite('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.