42 = 32+8+2
то есть состоит оно из 2в пятой степени + 2 в третьей + 2 в первой
значит единицы надо ставить во второй (первая степень двоек), четвертый (третья степень двоек) и шестой (пятая степень двоек) разряды
Это писаться будет так:
101010
Ура!)
Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96
Program pr;
uses crt;
Var
i,n:integer;
Procedure del(a:integer);
Var i:integer;
Begin
i:=1;
while (a div i<>0) do
Begin
if (a mod i=0)
then Writeln(i);
i:=i+1;
end;
end;
Begin
Writeln('Vvedite chislo');
readln(n);
del(n);
readln;
end.