среди двухзначных чисел найти сумму квадратов цифр которых делится ** 13 ПОМОГИТЕ...

Question

среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ

Answer 1

var
i,s:integer;

BEGIN
s := 0;
for i := 10 to 99 do
if i mod 13 = 0 then
s := s + (sqr(i div 10)+sqr(i mod 10));
write(s)
END.