informatyki i systemów mikroprocesorowych

program zamiana_na _postac_binarna;
uses crt;
var cyfry:array[1..16] of word;
      x,i:word;
begin
  clrscr;
  writeln('PROGRAM ZAMIENIA LICZBY NATURALNE NA ICH POSTAC BINARNA');
  repeat
    write('Podaj liczbe - typ word: ');
    readln(x)
    until x>=0;
  for i:=1 to 16 do cyfry[i]:=0;
  i:=1;
  while x>0 do
     begin
       cyfry[17-i]:=x mod 2;
       x:=x div 2;
      inc(i)
     end;
 i:=1;
while(cyfry[i]=0) and (i<16) do inc(i);

write('Podana liczba w postaci binarnej: ');
  while i<=16 do
  begin
    write(cyfry[i]);
    inc(i);
  end;
repeat until keypressed;
end.