Паскаль.
С клавиатуры вводится натуральное число X. Требуется получить число Y, в котором записаны цифры числа X в обратном порядке. Например, X=123 Y=321.
Примечание. Решите задачу с помощью рекурсивной процедуры.
50 БАЛЛЛЛОВВВВ

Боюсь на "любое количество разрядов" Ваш вариант не потянет))))

var X, Y: longint;procedure revX(X: longint; var Y: longint);begin  if X <> 0 then  begin    Y := Y * 10 + (X mod 10);    revX(X div 10, Y);  end;end;begin  write('Введите X = ');  readln(X);  revX(X, Y);  writeln(Y);end.