uses crt;
var S, X : string;
    A, i : byte;
    
begin
    clrscr;
    readln(S);
    
    i := 1; X := '0';
    while i <= length(S) do
        begin
            X := X + S[i];
            val(X, A);
            if A >= 97 then 
                begin
                    write(chr(A));
                    X := '0';
                end;
            i := i + 1;
        end;
    
    readln
end.

uses crt;
var s,t:string; n,i,a,e:longint;
begin
clrscr;
   writeln('Input');readln(s);
   writeln('Output');
   n:=length(s);
   repeat
      inc(i,2);
      t:=s[i-1]+s[i];
      if t<'97' then
         begin inc(i); t:=t+s[i]; end;
      val(t,a,e); write(chr(a));
   until i>=n;
readln
end.

/////////////////////////////////////////////

Giải thích:

Các số “a...z” trong bảng ascii thì là từ 97...122.

Mình nhận ra số bé nhất trong khoảng 97...122 thì có 2 chữ số và số lớn nhất thì có 3 chũ số

Đầu tiên xâu t sẽ bằng 2 chữ số từ i

Xem nếu mà số này bé hơn 97 thì thêm một số vào

VD:122

CT đọc số 12 thấy bé hơn 97 thì thêm số 2 vào là 122

Sau hết ta phân thích số t ra chũ cái với hàm chr

Nếu có gì không hiểu hay CT của mình chưa hợp lí chỗ nào thì để lạ bình luận nhé:

:))))))))))