Знайти добуток всих натуральних двохзначних чисел у яких перша цифра вдвичи бильше другойи

Var
  p, i: integer;

begin
  p:=1;
  for i:=10 to 99 do
    if (i div 10)=2* (i mod 10) then p:=p*i;
  writeln(p);
end.

Короткая программа показывает очевидную вещь, что таких чисел - всего-навсего четыре: 21, 42, 63, 84, больше нет.
Их произведение любезно сообщается, что будет 4667544.