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

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

Помогите решить.

Даны три числа. С помощью функции, определяющей первую цифру натурального числа вывести на экран наименьшую из полученных цифр. Например, если а=25; b=730; c=1236, то должна напечататься цифра 1.

Решение задачи: «Даны три числа. С помощью функции, определяющей первую цифру натурального числа вывести на экран наименьшую из цифр»

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

var
  a, b, c : integer;
 
{функция определения первой цифры}
function fdig(z : integer) : integer;
var t : integer;
begin
  t := z;
  while t > 10 do
    t := t div 10;
  fdig := t
end;
 
{функция определения наименьшего значения}
function min(x, y : integer) : integer;
begin
  if x > y then min := y else min := x
end;
 
begin
  write('введите 3 числа: ');
  readln(a, b, c);
  writeln('наименьшая первая цифра: ', min(fdig(a), min(fdig(b), fdig(c))))
end.

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

В данном коде используются три переменные типа Integer: a, b и c. Далее определены две функции:

Функция fdig(z : integer) возвращает первую цифру натурального числа z. Для этого используется переменная типа Integer t, которая итерируется делением на 10 до тех пор, пока значение t больше 10. Значение t в конце цикла заменяет значение переменной fdig.
Функция min(x, y : integer) возвращает наименьшее из двух чисел x и y. Для этого используется условное выражение: если x больше y, то наименьшим числом будет y, иначе - x. Значение наименьшего числа заменяет значение переменной min. В основной части кода происходит следующее:
Выводится приглашение для ввода трех чисел.
С помощью функции readln считываются три числа с консоли и сохраняются в переменных a, b и c.
Выводится на экран сообщение с наименьшей первой цифрой из введенных чисел, используя функции fdig и min.