Помогите срочно
Паскаль абц

Ответ:

var x:Real;

begin

write ('x = ');

Readln(x);

if x<0 then Write('y = ',x*x) else

if x>2 then Write('y = ',(3*x-1)/(2*x)) else

Write('y = ',sqr(x)*x+5)

end.