RosettaCodeData/Task/Binary-digits/PascalABC.NET/binary-digits.pas
2024-07-13 15:19:22 -07:00

4 lines
111 B
ObjectPascal

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