program RND;

var
 maximo : Word;
 codigoerror : Integer;

BEGIN
 write('SET ');
 {if ParamCount <> 1 then
  begin
   writeln('SET RESULTADO=ERROR');
   exit;
  end;}
  Val(ParamStr(1), maximo, codigoerror);
  if codigoerror <> 0 then
  begin
    writeln('RESULTADO=ERROR');
    exit;
  end;
  Randomize;
  codigoerror:= Random(maximo);
  write('RESULTADO=');
  writeln(codigoerror);

END.