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

Var   i,a,b:integer;  
Begin  
  for i:= 10 to 99 do Begin    
    a:=i mod 10;    
    b:=i div 10;    
    if ((sqr(a)+sqr(b))) mod 13 =0 then    
       write(i,' ');  
  End;
End.