ПОЖАЛУЙСТА
Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых делится на 13.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016function IsGood(n:integer):=  (sqr(n div 10)+sqr(n mod 10)) mod 13=0;begin  10.To(99).Where(n->IsGood(n)).Println  end.Тестовое решение15 18 23 32 46 47 51 64 69 74 79 81 96 97