Верно ли, что данное число заканчивается на свою максимальную цифру? - Turbo Pascal

Формулировка задачи:

Найти максимальную цифру числа. Верно ли, что данное число заканчивается на эту цифру?

Решение задачи: «Верно ли, что данное число заканчивается на свою максимальную цифру?»

Листинг программы

uses crt;
 
var number, ost, temp, len, i, index, max:integer;
 
begin
  clrscr;
  
  write('Enter a number: ');
  readln(number);
  
  len:=0;
  temp:=number;
  max:=-MAXINT;
  
  repeat
    number:=number div 10;
    len:=len+1;
  until(number=0);
  
  number:=temp;
  
  for i:=1 to len do
    begin
      ost:=temp mod 10;
      temp:=temp div 10;
      
      if ost>max then
        begin
          max:=ost;
          index:=i;
        end;
    end;
    
  writeln('Max digit of ', number, ' is ', max, '.');
  
  if index=1 then
    writeln(max, ' is the last digit.')
  else
    writeln(max, ' is not the last digit.');
    
  readln();
end.

Объяснение кода листинга программы

Данный код написан на языке Turbo Pascal и решает задачу проверки того, является ли число, введенное пользователем, числом, которое заканчивается на свою максимальную цифру. В коде используются следующие переменные:

number: переменная для хранения числа, введенного пользователем.
ost: переменная для хранения последней цифры числа.
temp: временная переменная для хранения частного от деления числа на 10.
len: переменная для хранения количества цифр в числе.
i: переменная для хранения номера текущей цифры.
index: переменная для хранения индекса последней цифры в числе.
max: переменная для хранения максимальной цифры числа. Код начинается с инициализации переменных и получения числа от пользователя. Затем происходит деление числа на 10, пока число не станет равным нулю. Это обеспечивает перебор всех цифр числа. Далее идет проверка: если последняя цифра (о которой мы храним информацию в переменной ost) больше максимальной цифры (которую мы храним в переменной max), то мы обновляем значение max и index. Это позволяет нам отследить максимальную цифру числа. После этого мы выводим результат на экран: максимальную цифру числа и сообщение о том, является ли она последней цифрой числа или нет. В конце кода происходит чтение следующего символа от пользователя, чтобы завершить цикл.