The following procedure evaluates the function z(x, y) = x^2 * y - 16 * (4 - y) and indicates whether the point (x, y) is above or below the curve z(x, y) = 0 (The curve is called "Witch of Agnesi' due to an orthographic error.) procedure checkxy; var x, y, z: integer; begin write 'x: 1; read x; write cr, If, 'y: '; read y; z:= x*x*y - 16*(4 - y); write cr, if, 'The point (', x, ', y, ') is if z