Zrkadlove X

//Cislo x premenit na zrkadlove x
program zrkadlovex;
{$APPTYPE CONSOLE}
uses SysUtils;
var x,c:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte cislo: ');
  readln(x);
  while x<>0 do
    begin
      c:= x mod 10;
      x:= x div 10;
      write(c);
    end;
  readln;
end.