Найти первую цифру числа - Turbo Pascal (33684)

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

Дано натуральное число n (n<9999) найти первую цифру числа

Решение задачи: «Найти первую цифру числа»

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

var
  n : integer;
begin
  repeat
    write('введите натуральное число n (<9999): ');
    readln(n)
  until (n > 0) and (n < 9999);
  while n >= 10 do  
    n := n div 10;
  writeln('первая цифра числа: ', n);
  readln
end.

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

В начале объявляются переменные: n - целочисленного типа, и readln - функция чтения строки из стандартного ввода.
Затем идет цикл repeat-until, который продолжается до тех пор, пока введенное число n удовлетворяет условиям: больше нуля и меньше 9999.
Внутри цикла переменная n считывается из стандартного ввода с помощью функции readln.
Затем выполняется операция деления n на 10, что приводит к уменьшению числа на 10 до тех пор, пока оно не станет меньше 10.
После выхода из цикла while переменная n будет содержать первую цифру введенного числа.
Затем с помощью функции writeln выводится сообщение с первой цифрой числа.
Цикл repeat-until завершается только после ввода числа, которое не удовлетворяет условиям (больше нуля и меньше 9999).
В конце программы выводится сообщение с помощью функции readln.