A COMPLETE PASCAL PROGRAM WITH TWO FUNCTIONS, SQUARE AND AREA program trap(input, output; var result: real function square(x: integer): integer: begin square.dx end function area( a, b: real function f(x: real): real): real; DegIn dre:=(b-a)*(f(a)+f(b)/2 en d begin result: area(2, 5, square) writen 2, 5, result en d 带函数参数A COMPLETE PASCAL PROGRAM WITH TWO FUNCTIONS, SQUARE AND AREA 带函数参数