#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s;
    getline(cin,s);
    for(int i=s.size()-1;i>=0;i--)
    {
        cout<<s[i];
    }
}

Tham khảo chương trình :

`@` Pascal `:`

uses crt;
var
    n : ansistring;
    i : longint;
begin
clrscr;
    read(n);
    for i := length(n) downto 1 do write(n[i]);
end.

`---------`

ansistring là một kiểu dữ liệu xâu, kiểu dữ liệu này

tốt hơn string là có thể nhập $\infty$ kí tự `(` string

bị giới hạn ở `255` kí tự `)`