Дано натуральное число n. Вывести это число в обратном порядке. нужна блок схема

Var   n:integer;BeginWriteln('Введите число N:');ReadLn(n);while n > 0 do   Begin   Writeln(n mod 10);   n:=n div 10   End;End.