PROGRAM PROCTEST(OUTPUT);
VAR R1,V1:REAL;
PROCEDURE SETR(VAR R:REAL;VAR V:REAL);EXTERN;
BEGIN
WRITELN('CALLING SETR');
V1:=5.12;
SETR(R1,V1);
WRITELN('R1=',R1);
WRITELN('DID IT WORK');
END.