Среди двухзначных чисел найдите те, сумма квадратов цифр которых делиться на 13. В ПАСКАЛЕ!!!! Пожалуйста!!!

спасибо

пожалуйста

var  i,d,e:integer;begin  for i:=10 to 99 do  begin    d:=i div 10; e:=i mod 10;    if ((sqr(d)+sqr(e)) mod 13)= 0 then Write(i,' ')  endend.Результат выполнения программы:15 18 23 32 46 47 51 64 69 74 79 81 96 97