Первая и вторая цифры натурального числа - Pascal ABC

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

Помогите решить c repeat Дано натуральное число M. Написать программу для вычисления первой цифры числа M. входные данные 54321 выходные данные 5. Дано натуральное число M. Написать программу для вычисления второй цифры числа М(M>10) входные данные 54321 выходные данные 4.

Решение задачи: «Первая и вторая цифры натурального числа»

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

var m:integer;
begin
write('Введите натуральное число m=');
readln(m);
repeat
  if m>9 then m:=m div 10;
until m<10;
writeln(m)
end.

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

Создается переменная m типа integer.
Выводится сообщение «Введите натуральное число m=» для ввода значения переменной m.
В цикле repeat выполняется до тех пор, пока значение переменной m не станет меньше 10.
Если значение переменной m больше 9, то она делится на 10 и результат присваивается переменной m.
После выполнения цикла выводится значение переменной m.