begin
	real y;
	
	% value ! %
	real procedure poly2(real value a0,a1,a2,x); 
	begin
		a0 + a1*x + a2*x*x
	end;
	
	y := poly2(0, -1.0, 1.0, 2.0);
	
	write(y)
end