Паскаль! создать программу для перевода чисел из десятичной в двоичную систему счисления. на вход программа получает число от 0 до 255. допускается использование массивов. пример: вход 45 выход 101110

Var
   A,B:longint;
Begin
B:=1;
Read(A);
While A > 0 do
   Begin
   B:=B*10+(A mod 2);
   A:=A div 2
   End;
While B div 10 > 0 do
   Begin
   A:=A*10+(B mod 10);
   B:=B div 10
   End;
Write(A)
End.