Bài 22:

program bai_giai;
uses crt;
var n:longint;
function dao(k:longint):longint;
var a,d:longint;
begin
    d:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            d:=d*10+a;
            k:=k div 10;
        end;
    dao:=d;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(dao(n));
    readln;
end.

Bài 23:

program bai_giai;
uses crt;
var n:longint;
function tong(k:longint):longint;
var a,b,t:longint;
begin
    t:=0;    a:=k mod 10; k:=k div 10;
    while k<>0 do
        begin
            b:=k mod 10;
            t:=t+abs(a-b);
            k:=k div 10;
            a:=b;
        end;
    tong:=t;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(tong(n));
    readln;
end.

Có gì thì nói mình nhé.

===========================

program Hello;
uses crt;
var n:string;
    i:integer;
begin
    readln(n);
    for i:= length(n) downto 1 do
        write(n[i]);
readln;
end.
===================================

23:

program Hello;
uses crt;
var m:int64;
function t(n:int64):int64;
var a,s,b:int64;
begin
    s:= 0;
    b:= n mod 10;
    n:= n div 10;
    a:= n mod 10;
    while n > 0 do
        begin
            s:= s + abs(a - b);
            b:= n mod 10;
            n:= n div 10;
            a:= n mod 10;
        end;
    t:= s;
end;
begin
    readln(m);
    writeln(t(m));
readln;
end.