uses crt;
label a1,a2;
var m,n,s,i,des,j:integer;
    as:array[1..50] of integer;
begin
clrscr;
readln(m);
writeln;
asm
mov    cx,899
mov    ax,100
mov    n,ax
a1:    mov ax,n
mov    des,10
xor    dx,dx
mov    s,dx
div    des
add    s,dx
xor    dx,dx
div    des
add    s,ax
add    s,dx
mov    bx,s
cmp    bx,m
jne    a2
mov ax,n
mov word ptr as[si],ax
inc i
a2:inc n
add    si,2
loop   a1
end;
writeln;
for j:=1 to i do writeln(as[i]);
readln;
end.