Var He10,N,Y:Word;
He2,Tam:String;
Begin
Write('Nhap so nguyen he thap phan: ');
Readln(He10);
N:=He10;
He2:=' ';
Repeat
Y:=He10 Mod 2;
Str(Y, Tam);
He2:=Tam + He2;
He10:= He10 Div 2;
Until He10 = 0;
Writeln;
Writeln('So he 10 la : ',N);
Writeln('Doi sang he 2 la: ',He2);
Readln
End.