program jj;
uses crt;
const a=50; b=80;
var n,t:LongInt;
cnt,i,m:integer;
function Pal(n:integer):LongInt;
var x:LongInt;
BEGIN
clrscr;
x:=0;
while n<>0 do
begin
x:=x*10+n mod 10;
n:=n div 10;
end;
Pal :=x
end;
begin for i:=a to b do
begin
cnt:=0; n:=i;
while Pal(n)<>n do
begin
t:=Pal(n);
n:=n+t;
Inc(cnt);
end;
writeln(i,'',cnt);
end;
readln;
end.