Определите сумму первой и последней цифры числа - Pascal ABC

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

Задано натуральное многозначное число. Определите сумму его первой и последней цифры, первой и предпоследней цифры.

Решение задачи: «Определите сумму первой и последней цифры числа»

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

program pr;
var
  a, b, n, c: longint;
begin
writeln('Введите число');
  readln(n);
  c := (n mod 100) div 10; // предпоследняя
  a := n mod 10; 
  n := n div 10;
  while n > 0 do 
  begin
    b := n mod 10;
    n := n div 10;
  end;
  
  writeln('Предпоследняя цифра: ', c);
  writeln('Первая цифра: ', b);
  writeln('Последняя цифра: ', a);
  writeln('Сумма первой и последней цифры: ', b+a);
  writeln('Сумма первой и предпоследней цифры: ', b + c);
end.

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

В программе объявлены три переменные: a, b и n типа longint.
Пользователю предлагается ввести число. Это значение сохраняется в переменной n.
Вычисляется предпоследняя цифра числа. Для этого число делится на 10, а результат заносится в переменную c.
Вычисляется первая цифра числа. Для этого число делится на 10, а результат заносится в переменную a.
Число делится на 10, чтобы убрать последнюю цифру. Результат этого деления сохраняется в переменной n.
Пока значение n больше нуля, выполняется цикл.
Внутри цикла вычисляется последняя цифра числа. Она сохраняется в переменной b.
Число снова делится на 10, чтобы убрать последнюю цифру. Результат этого деления сохраняется в переменной n.
Выводится информация о числе: предпоследняя цифра, первая цифра и последняя цифра.
Выводится сумма первой и последней цифры.
Выводится сумма первой и предпоследней цифры.