Пожалуйста, переделайте под Турбо Паскаль - Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
function DecToBin(n:byte):string;
const c:array [0..1] of char= ('0','1');
var d:0..1;
begin
result:='';
while n<>0 do 
 begin
  d:=n mod 2;
  result:=c[d]+result;
  n:=n div 2;
 end;
while length(result)<4 do
result:='0'+result;
end;
var n:integer;
    s:string;
begin
write('Введите десятичное число n= ');
readln(n);
s:='';
while n>0 do
 begin
  s:=DecToBin(n mod 10)+s;
  n:=n div 10;
 end;
write(s);
end.

Решение задачи: «Пожалуйста, переделайте под Турбо Паскаль»

Листинг программы

function DecToBin(n:byte):string;
const c:array [0..1] of char= ('0','1');
var d:0..1;
    s:string;
begin
s:='';
while n<>0 do
 begin
  d:=n mod 2;
  s:=c[d]+s;
  n:=n div 2;
 end;
while length(s)<4 do
s:='0'+s;
DecToBin:=s;
end;

Объяснение кода листинга программы

Функция DecToBin преобразует десятичное число в двоичное.
Входной параметр n (типа byte) - десятичное число, которое нужно конвертировать в двоичное.
Константа c - массив символов '0' и '1'.
Переменная d - хранит остаток от деления числа n на 2.
Переменная s - строка для хранения результата в двоичном виде.
Пока n не равно 0, выполняются следующие действия:
- Получаем остаток от деления числа n на 2 и записываем его в d.
- Добавляем символ из массива c (с индексом d) в начало строки s.
- Делим n на 2.
После завершения цикла, если длина строки s меньше 4, добавляем нули в начало строки, чтобы получить результат в виде 4-битного двоичного числа.
Возвращаем строку s в качестве результата функции DecToBin. Этот код демонстрирует алгоритм перевода десятичного числа в двоичное с использованием остатков от деления.