Program DecimalToBinary;
var
x, c: integer;
begin
Write${}^{\prime }Enteranumberindecimalsystem{:}^{\prime }$;
Readln$x$;

Write${}^{\prime }Binaryrepresentation{:}^{\prime }$;
while x > 0 do begin
c := x mod 2;
x := x div 2;
Write$c$;
end;

WriteLn; // переход на новую строку для красоты вывода
end.