найти все двузначные числа сумма квадратов цифр которые делятся на 13

Берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. Цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). Если число кратно 13, то остаток от его целочисленного деления на 13 нулевой.





begin
  Range(10,99).Where(n->(sqr(n div 10)+sqr(n mod 10)) mod 13=0).Println
end.


15 18 23 32 46 47 51 64 69 74 79 81 96 97