Дано натуральное число N. Выведите его представление в двоичном виде в обратном порядке. Pascal ABC

var n:integer;beginwrite('n = '); readln(n);while n<>0 do begin write(n mod 2); n:=n div 2; end;writeln;end.Пример:n = 80001