RosettaCodeData/Task/Binary-digits/PascalABC.NET/binary-digits.pas

begin
  foreach var number in |5, 50, 9000| do
    Writeln($'{number,4} - {Convert.ToString(number,2)}');
end.