Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).
pascal цикл while или repeat

Program n1;varn, a, m: longint;begin write('введите число: ');readln(n);m := 0;while n>0 do begina := n mod 10;n := n div 10;m := m*10 + a;end;writeln('перевернутое число: ',m);end.

varn, nn : integer;beginrepeatwrite ('Введите число, не оканчивающиеся на 0: ')readln (n);until (n mod 10)<>0;while n>0 dobeginnn:=nn*10+(n mod 10);n:=n div 10;end;write (nn);end.