freopen("drb.inp", "r", stdin);
freopen("drb.out", "w", stdout);

what

program XoaChuSoLonNhat;

var
  s: string;
  i, j, k, vitri: integer;
  soLonNhat: longint;

function ChuanHoa(s: string): string;
var
  i, j: integer;
begin
  for i := 1 to Length(s) do
    if s[i] = '0' then
      Delete(s, i, 1);
  for i := 1 to Length(s) do
    if s[i] = '-' then
      Delete(s, i, 1);
  if s[1] = '+' then
    Delete(s, 1, 1);
end;

function TimViTriLonNhat(s: string): integer;
var
  i, j: integer;
begin
  vitri := 1;
  for i := 2 to Length(s) do
    if s[i] > s[vitri] then
      vitri := i;
end;

function XoaChuSo(s: string; vitri: integer): string;
var
  i: integer;
begin
  Delete(s, vitri, 1);
  for i := vitri to Length(s) do
    Inc(s[i]);
end;

function ChuyenSangSo(s: string): longint;
var
  i, so: integer;
begin
  so := 0;
  for i := 1 to Length(s) do
    so := so * 10 + Ord(s[i]) - Ord('0');
  if s[1] = '-' then
    so := -so;
end;

begin
  Writeln('Nhap xau: ');
  Readln(s);
  s := ChuanHoa(s);

  vitri := TimViTriLonNhat(s);
  soLonNhat := ChuyenSangSo(XoaChuSo(s, vitri));

  Writeln('So lon nhat sau khi xoa 1 chu so: ', soLonNhat);
end

trên đây không vẽ được

Bước 1: Vẽ chủ đề chính ở chính giữa tờ giấy, có thể thêm hình △/❤/✿ bao quanh theo ý muốn.

Bước 2: Từ chủ đề chính đó, vẽ thêm các nhánh nhỏ.

Bước 3: Mở rộng ra thành nhiều nhánh khác theo ý mình.

*Ngoài ra cũng có thể chèn thêm các hình ảnh, màu sắc cho sơ đồ thêm sinh động và tăng hiệu quả ghi nhớ. Ví dụ:

Hỏng bàn phím đó bà nội

When flag clicked
    Set [a] to (ask [Enter the value of a] and wait)
    Set [b] to (ask [Enter the value of b] and wait)
    Set [product] to ((a) * (b))
    Say (join (join [The product of ] (a)) [ and ] (b)) for (2) secs
    Say (join (join [is ] (product))) for (2) secs