Дано натуральное число а. вывести число, полученное из а путем прочтения его цифр справа налево. например, 12345 -> 54321.

uses crt; var    s:array[1..100] of integer;     a,i,j,b:integer; begin     clrscr;   readln(a);   b:=a;   j:=0;     while b<>0 do     begin          j:=j+1;          s[j]:=b mod 10;          b:=b div 10;     end;     for i:=1 to j do         write(s[i]);     writeln;         readln; end.