Kody źródłowe/Zamiana liczb z systemu dziesiętnego na binarny

Pascal

program dec2bin;

var
 wynik:string;
 n:integer;

begin
 wynik:='';
 writeln('Podaj liczbe');
 readln(n);
  repeat
   if n mod 2=0 then wynik:='0'+wynik
                else wynik:='1'+wynik;
   n:=n div 2;
  until n=0;

 writeln(wynik);
 readln;
end.