Программа для перевода чисел из одной системы счисления в другую

program afff;
var a, b, c, d, h, i :integer;
begin
write('Десятичная цифра: '); read(a);
b:= a mod 2;
c:= b mod 2;
d:= c mod 2;
h:= c div 2;
write('Даное число в двоичной системе:'); writeln(h, d, c, b);
writeln('Нажмите любую клавишу');readln(i);
end.

var
 n,i: integer;
 s:string;
begin
 repeat
   readln(n);
 until(n > 0); //запрашиваем ввод до тех пор, пока не введем положительное число
 s := ''; //пустая строка - начальное значение результата
 while n > 0 do begin //для положительных n выполняем цикл
   if n mod 2 = 0 then //если n - четное
     s:= s + '0' //к строке прибавляем 0
   else begin //в противном случае
     s:= s + '1'; //к строке рибавляем 1
     n:= n - 1; //и от числа n отнимаем 1, получая при этом четное число
   end;
   n:= n div 2; //делим n на 2
 end;
{ Выводим все символы строки от Length(s)-го до 1-го,
Length(s) - количество символов в строке, длина строки: }
 for i:= length(s) downto 1 do
   write(s[i])
end.

var
  i, n, k: integer;
  bln: boolean;
 
begin
  write(' n = ');
  readln(n);
  bln := false;
  for i := 32 downto 1 do
  begin
    k := 1 shl (i - 1);
    if (n and k = k) then
    begin
      if bln = false then bln := true;
      write(1)
    end
    else
    if bln then write(0)
  end
end.

// Перевод в двоичную систему счисления
// Уровень сложности: 1
 
procedure PrintBin(x: integer);
begin
  if x=0 then exit;
  PrintBin(x div 2);
  write(x mod 2);
end;
 
begin
  PrintBin(235);
end.

uses System;
var dec : integer;
begin
  readln(dec);
  writeln(Convert.ToString(dec, 2));
end.