uses crt;
var x,y:string; i,a,e:longint;
begin
clrscr;
   write('X=');readln(x);
   for i:=1 to length(x) do y:=x[i]+y;
   val(y,a,e);
   writeln(a mod 19);
readln
end.

Đảo ngược xâu:

Đi từ 1 tới độ dài của xâu X:Y là bằng X[i] + Y(Vd Y=2+3 thì ra 23 với X[i] là 2 và Y là 3);

Tức là chèn cái X[i] vào trước Y để có số đảo ngược.

Nếu có gì không hiểu các bạn hãy để lại bình luận nha!!!

var x,y,j,i,t : longint;
procedure sdn(x : integer);
var y : integer;
begin
y:=x;
while y <>0 do begin
write(y mod 10);
y:=y div 10;
end; end;
begin clrscr;
write('Nhap so x :'); readln(x);
write('So dao nguoc cua ',x,' la :') ;sdn(x);
readln
end.

* Mình thấy cách làm bài này với xâu sẽ tối ưu nhất vì khi làm không chuyển sang xâu thì sẽ không gán được giá trị cụ thể số đảo ngược đó. Nên bạn có thể tham khảo cách của bạn trên rất ngắn gọn và đúng.