Преобразование десятичного числа в двоичное

{ Artix }

function dec2bin(x:integer):string;
begin
  if x>1 then
  begin
    if x mod 2 = 0 then
      dec2bin:=dec2bin(x div 2)+'0'
    else
      dec2bin:=dec2bin(x div 2)+'1'
  end
  else if x=1 then
    dec2bin:='1'
  else if x=0 then
    dec2bin:='0';
end;

var
  x:integer;
begin
  writeln('Input decimal:');
  readln(x);
  writeln(dec2bin(x));
end.

На Python тот же самый алгоритм можно сократить
до неприлично маленького размера:

d = int(input("Decimal digit: "))
n = ""
 
while d > 0:
    n = str(d % 2) + n
    d = int(d / 2)
 
print (n)