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

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