Сделайте пожалуйста алгоритм к программы в паскале

Перевод чисел из десятичной системы счисления в двоичную
program conv;
uses crt; //* Подключение модуля работы с экраном */
const
osn2=2; //* Двоичное основание */
len2=15; //* Количество двоичных позиций */
var
n,i,n10:integer;
s:array[1..len2] of byte;
BEGIN
clrscr; //* Очистка экрана */
write(' Введите десятичное целое число ');
readln(n10);
write(' Двоичная форма');
n:=n10;
for i:=len2 downto 1 do begin
s[i]:=n mod osn2; //* Вычисление значения очередного разряда */
n:=n div osn2; //* Сдвиг на один разряд влево */
end;
for i:= 1 to len2 do begin //* Вывод результата */
write(s[i]);
end;
readln;
END.


Примечание:
блок схема

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.