program menor; var a, b, codigoerror : Integer; BEGIN if ParamCount <> 2 then begin writeln('SET RESULTADO=ERROR'); exit; end; Val(ParamStr(1), a, codigoerror); if codigoerror<>0 then begin writeln('SET RESULTADO=ERROR'); exit; end; Val(ParamStr(2), b, codigoerror); if codigoerror<>0 then begin writeln('SET RESULTADO=ERROR'); exit; end; if a < b then begin write('SET RESULTADO='); writeln(a); end else begin writeln('SET RESULTADO=0'); end; END.