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

[Анастасия0]

Написать программу с использованием подпрограмм (процедуры или функции):

Uses crt; 
var i,temp,number:integer; 
begin 
for i:= 10 to 99 do begin 
number := i; 
temp:=number mod 10; 
number:=number div 10; 
if (sqr(temp)+sqr(number)) mod 13=0 then write(i:4); 
end; 
end

[Аватар]

Это уже какая по счету тема про делимость на 13?