Дан фрагмент программы:While x>0 do beginc:=x mod 2;x:=x div 2;Write(c);end;Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.

Предыдущий
вопрос Следующий
вопрос

Program DecimalToBinary;
var
x, c: integer;
begin
Write('Enter a number in decimal system: ');
Readln(x);

Write('Binary representation: ');
while x > 0 do begin
c := x mod 2;
x := x div 2;
Write(c);
end;

WriteLn; // переход на новую строку для красоты вывода
end.