Просмотр поста #85843: Помощь по паскалю

//из 10 в 2
program algoritm;
uses crt;
var i,ost,des,n:integer;
m:array [1..99] of integer;
begin
 Writeln('Введите десятичное число:');
 read(des);
 n:=0;
 i:=0;
 repeat
 inc(n);//сколько раз делим
 inc(i);//текущий элемент
 ost:=des mod 2;//остаток
 des:=des div 2;//делим десятичное число
 m[i]:=ost;//записываем в массив остаток (элемент двоичного числа - 0 или 1)
 until des=0;//делим, пока не останется 0
 writeln('Двоичное число:');
 for i:=n downto 1 do //выводим наше двоичное число "с конца"
 write(m[i],' ');
end.