Program Tin;
Uses crt;
Const fi='cannang.inp';
fo='cannang2.out';
Var i,n: longint;
f: text;
M: array[1..10000000] of longint;
Begin
Assign(f,fi); Reset(f);
Readln(n);
For I:=1 to n do read(f,M[i]);
Assign(f,fo); Rewrite(f);
Write(f,'Cac ban co can nang lon hon 40 nho hon 50 la: ');
For I:=1 to n do
If (40<I) and (I<50) then write(f,I,' ');
Close(f);
End.