PROGRAM PROCDEF;
(*# E+ *)
PROCEDURE SETR(VAR R:REAL;VAR V:REAL);
BEGIN
R:=V;
END;
BEGIN
END.