Hola.
Un modo es:
Código Delphi
[-]
function FirstTwoPairs(Number: Integer): Boolean;
var
Invert, Rest: Integer;
begin
Invert := 0;
while Number > 0 do
begin
Rest := Number mod 10;
Invert := Invert * 10 + Rest;
Number := Number div 10;
end;
Result := ((Invert mod 10 mod 2)=0) and ((Invert mod 100 div 10 mod 2)=0);
end;
Otro:
Código Delphi
[-]
function FirstTwoPairs(const Number: Integer): Boolean;
var
s: string;
a,b: Integer;
begin
a := StrToInt(IntToStr(Number)[1]);
b := StrToInt(IntToStr(Number)[2]);
Result := (a mod 2 = 0) and (b mod 2 = 0);
end;
Ej. de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
const
v : array[1..5] of Integer = (234, 243, 675, 667, 444);
var
i : Integer;
begin
Memo1.Clear;
for i := Low(V) to High(V) do
if FirstTwoPairs(v[i]) then
Memo1.Lines.Add(IntToStr(v[i]));
end;
Saludos