rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
楼主ccf rp+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var rp:^longint;
begin
repeat
new(rp);
rp^:=maxlongint;
until 0=1;
end.
RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++RP IQ+++++++++++++