1) Напишите программку, которая вводит трехзначное число и разбивает его на

универсальный вариант. Длинно над решением мыслить не хотелось, так что ответ таковой.  Поскольку ограничений на решение не было)

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

var

   n: integer;

   s: string;

begin

   readln(n);  

   s := '';

   while n gt; 0 do

   begin

       s := (n mod 10).ToString() + '0

       ' + s;

       n := n div 10;

   end;

   writeln(s);

end.