[droguerman]

podria ser algo asi (falta optimizar)

Código Delphi [-]
var
  texto : string;
  i : integer;
  suma : integer;
  resultado : integer;
 begin
  texto := IntToStr(numero);
  suma := 0;
  for i:= 1 to length(texto) do
  begin
      suma := suma + StrToInt( texto[i] ) * (1+(i mod 2));
  end;
 resultado := 30-suma;
end;