Dec_to_bin

program Dec_to_bin;
var x,n,a: integer;
var y: array [1..200] of integer;
begin
writeln('ievadi skaitli dec kodā!');
readln(x);
n:=0;

while x>0 do
begin
inc(n);
y[n]:= x mod 2;
x:=x div 2;
end;

for a:= n downto 1 do
begin
write(y[a]);
end;
readln;
end.