Алгоритм Берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. Цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). Если число кратно 13, то остаток от его целочисленного деления на 13 нулевой.
Программа
( PascalABC.NET 3.2, сборка 1385 от 14.02.2017 )
begin Range(10,99).Where(n->(sqr(n div 10)+sqr(n mod 10)) mod 13=0).Println end.
