Se citeste un numar natural de la tastatura ;sa se afiseze numarul inversat cu structura repetitiva conditionata anterior

Răspuns :

var n,c:integer;
begin
writeln('Introduceti numarul: '); 
read(n);
write('Numarul inversat: ');
while n>0 do
begin
c:=n mod 10;
n:= n div 10;
write(c);
end;
end.