двоичная система счисления

[galaid]

прогу чтоб переводить из двоичной написал, а в двоичную не знаю как сделать. помогите плз!

[oleg52]

попробуй это.

program tyure;
uses crt;
const
n=12;
n2=2;
var
n10,x,i,j:word;
a:array[1..n]of word;
begin
clrscr;
writeln ('vvedite chislo'); readln (n10);
i:=1; x:=n10;
while (x div n2)>0 do
begin
a[i]:=x mod n2;
x:=x div n2;
i:=i+1;
end;
a[i]:=x mod n2;
for j:=+i downto 1 do writeln (a[j]);
readkey;
end.

[Tkirill]

uses crt;
var
s,st:string;
buf:integer;
n:integer;
begin
clrscr;
write(' -> ');
readln(n);
s:='';
while n<>0 do
 begin
  buf:=n mod 2;
  str(buf,st);
  s:=st+s;
  n:=n div 2;
 end;
writeln(S);
readln;
end.

[Kostia]

Третий не лишний

var
  n: byte;
  s: string;
begin
  readln(n);
  while n<>0 do
  begin
    s:=IntToStr(n and 1)+s;
    n:=n shr 1;
  end;
  writeln(s);
  readln();
end.