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.