m:-skip(10),a. a:-readln([N]),N>0,K is round(N^0.5),format("~d ",K*11+K mod 10),a.