Произведение первой и последней цифры заданного числа - Pascal ABC

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

С клавиатуры вводится длинное целое число , которое имеет не менее 50 цифр . Найти произведение первой и последней цифры . Pascal

Решение задачи: «Произведение первой и последней цифры заданного числа»

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

function IsDigit(c: char): boolean;
begin
  IsDigit := c in ['0'..'9']
end;
 
var s: string;
    mul, i: integer;
    isnum: boolean;
begin
  s := ''; isnum := true;
  while length(s) < 50 do
    readln(s);
  for i := 1 to length(s) do
    if (not IsDigit(s[i])) then begin
      writeln('Не число!');
      isnum := not isnum;
    end;
  if isnum then begin
    mul := StrToInt(s[1]) * StrToInt(s[length(s)]);
    writeln(mul);
  end;
end.

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

В первой строке объявляется функция IsDigit, которая принимает один параметр типа char и возвращает логическое значение boolean. Эта функция проверяет, является ли символ цифрой.
Затем объявляются переменные: s - строка для чтения числа, mul и i - целочисленные переменные для хранения произведения первой и последней цифры числа, isnum - логическая переменная для проверки, является ли введенное значение числом.
Цикл считывает строку с числом до тех пор, пока длина строки не достигнет 50 символов.
Затем происходит проверка каждого символа строки на предмет того, является ли он цифрой. Если символ не является цифрой, выводится сообщение Не число! и логическое значение переменной isnum инвертируется.
После проверки всех символов строки выясняется, является ли введенное значение числом. Если это так, то первая и последняя цифры числа преобразуются в целочисленные значения и перемножаются.
Результат умножения выводится на экран.