Объяснение программы

[man-utd-]

Здрасьте
Имеется код в Паскаля(перевод из 10 в двоичную систему счисления)

var n,i: integer;
     s:string;
begin
repeat
  readln(n);
until(n > 0);
while n > 0 do begin
  if n mod 2 = 0 then
    s:= s + '0'
  else begin
    s:= s + '1';
    n:= n - 1;
  end;
  n:= n div 2;
end;
for i:= length(s) downto 1 do
  write(s[i]);
end.

Не могли бы помочь с объяснением каждой строчки, и еще мне бы желательно сюда дополнительно вставить бы отдельную прогу, которая выполняла бы самую простую арифметическую операцию a+b)

[Stilet]

А я бы вот так написал:

 var n,i:integer;s:string;
begin
 n:=1235;
 for i:=0 to 32 do begin
  s:=chr(ord('0')+byte(n and 1))+s;
  n:=n shr 1;
 end;
 write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[RUSt88]

А я бы вот так написал

Stilet, ему не поверят )))

[Stilet]

ему не поверят

Ну если он разберется и докажет механизм то почему нет...

[man-utd-]

Сообщение от Stilet

Ну если он разберется и докажет механизм то почему нет...

Эхх...я код, который привел выше, сам не до понимаю
Что же говорить про ваш)
Поэтому хотел бы, кому не лень,чтоб объяснили,что значит каждая строчка))

Не могли бы посмотреть правильна ли блок схема к моему коду??