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

ROM (23.11.2012 / 22:29)
[php]//из 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);//ск