Ответ:

Var

n, m:integer;

a:byte;

Begin

readln(n);

m:=0;

while n>0 do begin

a:= n mod 10;

n:= n div 10

m:= m*10+a

end;

writeln(m) ;

End.

Для любого количества символом/цифр

begin

 var stroka := ReadString('Введите число/слово');

 for var i := Length(stroka) downto 1 do

   stroka += stroka[i];

 Delete(stroka, 1, length(stroka) div 2);

 Println('Реверс: ', stroka);

end.