Задача из тех, что можно решить без всякого алгоритма, ибо требуемые числа: 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