Составить программу перевода числа из 10 системы счисления в 2 систему счисления. (программа Паскаль)

USES Crt;
VAR
   DES, OST, I, DW:INTEGER;
BEGIN
  ClrScr;
  Write('Введите десятичное число  '); ReadLn(DES);
  I:=1;
  While (DES>=2) DO Begin
      OST:=DES mod 2;
      DES:=DES div 2;
      DW:=DW+OST*I;
      I:=I*10;
  End;
  DW:=DW+DES*I;
  Write('Двоичная запись числа  ',DW);
END.

Ежелгі Римде б.з.б. 73/74 – 71 жылы болған құлдар көтерілісі. Көтерілісті құлдыққа сатылып, Капуядағы гладиаторлар мектебіне түскен Спартак басқарған. Ол ежелгі авторлардың айтуынша римдіктерге тұтқынға түскен дакиялық тайпа көсемінің баласы болған. Көтеріліс барысында Спартак өзін шебер ұйымдастырушы әрі талантты қолбасшы ретінде көрсетті. Оның жасағының саны аз уақыт ішінде 10 мыңнан 70 мыңға дейін жетіп, көтеріліс Кампаниядан Италияның оңтүстік аймақтарына жедел тарады. Б.з.б. 72 жыды Рим сенаты көтерілісшілерге қарсы екі консул (Г.Лентул, А.Гелий) әскерін жіберді.

Балачактан ук мин этләрне яраттым, әти-әнием миңа көтүче эт бирделәр. Без аңа Джесси дип исем куштык. Мин Джессиның чыгышы белән кызыксындым. Нигездә, көтүче этләр турында сөйләгәндә, без көчле, акыллы һәм матур этне күрсәтәбез. Бу эт токымы турында тагын нәрсә беләм? Бернәрсә дә диярлек чыкмады. Менә хәзер, көтүче этләр турындагы материалны өйрәнеп, мин аның хезмәт ите булганын белдем. Ул сарыкларны саклый, шуңа күрә "көтүче эт" исеме барлыкка килә. Чынлыкта, көтүче этләрнең якынча 40 төре бар. Көтүче этләр токымын тирәнрәк өйрәнеп, алар миңа Centralзәк Азия көтүче эт биргәннәрен белдем. Аның токымы чыннан да уникаль. Джесси ак иде, кызыл таплар бар иде. Аның күзләре бик тәэсирле иде. Аның муены һәм аяклары бик көчле иде. Без аның балачактан ук колакларын кискән идек, хәзер алар эленәләр. Джесси, дөресрәге, аның токымы бик борынгыдан килеп чыккан. Джессиның ата-бабаларының бөтен тарихын өйрәнеп, мин аның вакыт узу белән ничек үзгәргәнен аңладым. Бу инде көтүче эте түгел, ә өйдәге эт, минем этем. Ул бик назлы һәм игелекле эт. Без аның белән сәяхәткә чыккач, ул һәркем белән дус, уйнарга ярата. Джесси белән без 10 ел бергә яшибез. Көн саен мин аны бөтен йөрәгем белән яратуымны аңлыйм.