PROGRAM FUNCTEST(OUTPUT);
VAR T2,D:INTEGER;
FUNCTION TWO(VAR DUMMY:INTEGER):INTEGER;EXTERN;
BEGIN
WRITELN('CALLING TWO');
T2:=TWO(D);
WRITELN('TWO =',T2);
WRITELN('DID IT WORK');
END.