%PROCEDURE SETR(R1,V);
%VALUE V;
%REAL R1,V;
%BEGIN
PRINTSTRING(<ENTERING_ALGOLG_SETR>);
R1:=V;
%END