Напишите алгоритм вычисляющий количество двузначных чисел произведение цифр которых равно 12

Задача из тех, что можно решить без всякого алгоритма, ибо требуемые числа: 26, 62, 34, 43. Всего 4. Но если нужна программа, то можно так:
var i,j,k:integer;
begin
k:=0;
for i:=2 to 6 do
 for j:=2 to 6 do
  if i*j=12 then k:=k+1;
writeln(k);
end.

Результат:
4