Найти первую цифру числа n - Pascal

Используя цикл с пред условием найти первую цифру числа n

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

var n:integer;
begin
  readln(n);
  while n>10 do
  n:=n div 10;
  writeln(n);
end.

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

В данном коде выполняется следующие действия:

Объявляется переменная n типа integer (целое число).
С помощью функции readln() вводится значение переменной n.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной n больше 10.
Внутри цикла значение переменной n делится на 10 с помощью оператора div (остаток от деления).
Результат вычисления записывается обратно в переменную n.
После выхода из цикла while, с помощью функции writeln() выводится значение переменной n. Список действий:
Объявление переменной n.
Ввод значения переменной n.
Цикл while.
Деление значения переменной n на 10.
Запись результата обратно в переменную n.
Вывод значения переменной n.