Program Nbre_Rond;
Var reste, c : String;
n, m, i, j, n1, n0 : Integer;
Begin 
For i:=1 To 1000 Do 
Begin
n:=i;
m:=i;
reste:='';
Repeat
STR (n mod 2, c);
reste:= c+reste;
n:=n div 2;
Until n=0;
n1:=0; n0:=0;
For j :=1 To Length (reste) Do 
Begin
If reste[j]='1' Then n1:=n1+1;
If reste[j]='0' Then n0:=n0+1;
End;
If n1=n0 Then Writeln (m, ' est ROND')
Else
Writeln (m, ' n''est pas ROND');
End;
End.