Системы счисления

uses crt;
var
a,b,c,d:real;
ost,cha,i,j,x,k:longint;
Begin
clrscr;
writeln('‚ўҐ¤ЁвҐ зЁб«®');
readln(k);
cha:=k;
  repeat
    ost:=cha mod 2;
    cha:=cha div 2;
    write(ost);
  if (ost=0) then i:=i+1;
  until (cha<0.9);
  writeln;
  writeln(i,' Ї®§ЁжЁ© б жЁда®© 0');
  readln;

End.