===== PascalABC.NET =====
begin
var a := Range(10, 99)
.Where(p -> (p mod 10) * (p div 10) >= 8).ToArray;
Println('Найдено чисел:', a.Length);
a.Print
end.
