Напишите алгоритм вычисляющий количество двузначных чисел произведение цифр которых равно 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