real procedure proct(m,x); value m,x; integer m; real x;
begin	real y,z;
	z:= 0; y:= 5; if x<.5 then x:= 1-x;
	if zeroin(z,y,tDistr(m,z)-x,&apos;-5) then proct:= y else EXIT
end;