program suma;
var
a, b, errcodigo : Integer;
BEGIN
if ParamCount <> 2 then
  begin
  writeln('SET RESULTADO=ERROR');
  exit;
  end;
 Val(ParamStr(1), a, errcodigo);
 if errcodigo<>0 then
   begin
   writeln('SET RESULTADO=ERROR');
   exit;
   end;
  Val(ParamStr(2), b, errcodigo);
 if errcodigo<>0 then
   begin
   writeln('SET RESULTADO=ERROR');
   exit;
   end;
 a:=a+b;
   write('SET RESULTADO=');
   writeln(a);

END.