program xxx;
uses crt;
var x,a,b:byte;
BEGIN
clrscr;
for x:=10 to 99 do
  begin
    a:=x div 10;
    b:=x mod 10;
    if (a*a+b*b)mod 13=0 then
      write(x, ' ');
  end;
readln;
End.