Помогите плизномер 3

Question

Помогите плиз
номер 3

---

Answer 1

Var  N: integer;
begin

  readln(N);

  if N div 10 = 1 then

    write(N)

  else

    while N <> 0  do

    begin

      write(N mod 10, ' ');

      N := N div 10;

    end;

end.

Comments

var
N: integer;

begin
readln(N);
if (N div 10 = 1) or (N = 0) then
write(N)
else
while N <> 0 do
begin
write(N mod 10, ' ');
N := N div 10;
end;
end.

---

Спасибо