Впаскале! дано трехзначное число - x, выделите его цифры и выведите их в обратном порядке.

Var n:integer;
begin
  repeat
    write ('N = ');
    readln (n);
  until (n>99) and (n<1000);
 while n<>0 do
   begin
     write (n mod 10);
     n:=n div 10;
   end;
  readln;
end.