переделать программу

[poltos-15]

у меня все не как не получается переделать.... пробовал множество раз на выходе получается только одно цифра и то которая стоит последней в водимом числе... вот сама прога только в ней используется цикл с пред условием и она нормально работает...

var
N,M : longint;
begin
WriteLn('Введите целое число:');
Readln(N);
M := 0;
while N>0 do begin
M := M * 10 + (N mod 10);
N := N div 10;
end;
WriteLn('Полученное число: ', M);
readln
end.

[Mad_Cat]

А чего сделать то надо?

[poltos-15]

Сообщение от Mad_Cat

А чего сделать то надо?

нужно переделать эту программу чтоб она работала с пост условием это Repeat..... а не с while...

[Terran]

var
N,M : longint;
begin
WriteLn('Введите целое число:');
Readln(N);
M := 0;
Repeat
//while N>0 do
begin
M := M * 10 + (N mod 10);
N := N div 10;
end;
Until N <= 0;
WriteLn('Полученное число: ', M);
readln;
end.