Паскаль

[Kira51]

помогите написать программу в паскале для системы y={ 2x-1, если x<0 и -x+1/x^(2), если x>=0

[Stilet]

if x<0 then y:=2*x-1 else y:=-x+1/(x*x);