{$codepage UTF8} Type TProc=Procedure(A:integer); TFunc=Function:boolean; Procedure MostrarA(A:integer); Begin Writeln(A) End; Procedure MostrarB(B:integer); Begin Writeln(B+5) End; Function FuncX:boolean; Begin FuncX:=true End; Var MiProc:TProc; MiFunc:TFunc; Begin MiProc:=@MostrarA; MiProc(5); MiProc:=@MostrarB; MiProc(5); MiFunc:=@FuncX; Writeln(MiFunc()) End.