Obarvený kód souboru taborak1.pas

uses crt;
var cislo : word;
procedure vypis_bin(cislo : word);
var poz  : word;
    txt  : string;
 begin
  txt:='';
  repeat
   if (cislo and 1)=1 then txt:=txt+'1' else txt:=txt+'0';
   cislo:=cislo div 2;
  until cislo=0;
  for poz:=length(txt) downto 1 do write(txt[poz]);
 end;

begin
 clrscr;
 writeln('Prevod cisla DEC>BIN');
 writeln;
  write('Zadej kladne dekadicke cislo : ');
   readln(cislo);
  write('V binarni soustave : ');
   vypis_bin(cislo);
 readln;
end.

created by PaJa