
a := (b-d+e)*((-f+h)/(-(m-n))); a :=SI a<d ALORS g[a] SINON d*a;
c[p + (SI b > -a ALORS d SINON e)+x, f, g[h]]:=i/(j*(j-g[-m]));
e:=a-(SI SI -k = l ALORS z SINON a> e ALORS a SINON SI f+e#-d-e-y ALORS -a+g[i/j/k] SINON d)-e

