ПАСКАЛЬ
Дано натуральное число, получить число, образованные при прочтении справа налево
X=317 y=70

var

   a, b : integer;

begin

   write('введите число: ');

   readln(a);

   while a > 0 do begin

       b := b*10+(a mod 10);

       a := a div 10;

   end;

   writeln(b);

end.

var a:string;i:Integer;begin read(a); for i:=Length(a) downto 1 do write(a[i]);end.полегче надо