{* Задача368 *}

REM basic

' Десятичное представление заданного натурального числа напечатать вразрядку, то есть вставить пробелы между цифрами.


Dim C As Long
CLS : INPUT "Vvedite chislo : ", C
  Do: N$ = " " + STR$(C Mod 10) + N$
      C = C  10
  Loop Until C = 0
WRITE LTRIM$(N$)
End