- Code: Pascal

uses crt;
var s: string;
    c: boolean = true;
    i: byte;
    max: char;
    n: qword;
begin
    readln(n); max:='0'; str(n, s);
    for i:=1 to length(s) do begin
        if s[i] <> s[length(s) - i + 1] then c:=false;
        if s[i] > max then max:=s[i];
    end;
    writeln(max);
    if c then write('Doi xung') else write('Khong doi xung');
readln;
end.

- Code: C++

#include <iostream>
using namespace std;

string s;
int m, c = 1;
unsigned long long n;

int main() {
    cin >> n;
    s = to_string(n);
    for (int i = 0; i < s.size(); ++i) {
        c &= (s[i] == s[s.size() - i - 1]);
        m = max(m, s[i] - 48);
    }
    cout << m << "\n";
    cout << (c ? "Doi xung" : "Khong doi xung");
}

Pascal:

uses crt, math;
var n: qword;
    s: string;
    res, i: longint;
    check: boolean;

function char_to_int(c: char): longint;
begin
    exit(ord(c) - 48);
end;

begin
clrscr;
    readln(n);

    str(n, s);
    for i:=1 to length(s) do 
        begin
            res:=max(res, char_to_int(s[i]));
            check:=(s[i] = s[length(s) - i + 1]);
        end;

    writeln(res);
    if check then writeln('Doi xung') else writeln('Khong doi xung');
readln;
end.

C++:

#include <iostream>
#include <cmath>
using namespace std;

#define char_to_int(a) int(a) - 48

string s;
int res = 0, check = 1;
unsigned long long n;

int main() {
    cin >> n;

    s = to_string(n);
    for(int i = 0; i < s.size(); ++i) {
        res = max(res, char_to_int(s[i]));
        check = (s[i] == s[s.size() - i - 1]);
    }

    cout << res << "\n";
    cout << (check ? "Doi xung" : "Khong doi xung");
}