{* Задача416 *}

REM basic

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


DEFLNG A-Z
 CLS : PRINT "Chisla:";
 For i = 10 To 99
      If ((i Mod 10) ^ 2 + (i  10) ^ 2) Mod 13 = 0 Then PRINT i;
 Next
End