Нужно написать программу в Pascal: пользователь вводит число в десятичной системе, а программа должна перевести это число в двуичный код. Желательно сделать 1 программу простой, с использованием if, div, mod, ну и циклы если надо,кроме цикла repeat, например пользователь ввёл 5 а система перевела в двуичный код 101
program ToBinary;
procedure dec2bin(var s : string; num : integer);
begin
if num > 0 then begin
dec2bin(s, num div 2);
if num mod 2 = 0 then
s := s + '0'
else
s := s + '1';
end;
end;
var
a : integer;
s : string;
begin
read(a);
dec2bin(s, a);
writeln(s);
end.