Помогите составить программу в паскаль!!!!!

Question

Помогите составить программу в паскаль!!!!!

---

Answer 1

Var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>0 do
 begin
 if a mod 2=0 then s:='0'+s else s:='1'+s;
 a:=a div 2;
 end;
writeln(s);
END.

Пример:
Введите число: 131
10000011

Answer 2

Program num_sys;
Var n:integer;
  res:string;
begin
  readln(n);
  while n div 2 <> 0 do
  begin
    res:= res + n mod 2;
    n:= n div 2;
  end;
  res:= res + 1;
  write(res);
end.