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

У={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.