Программа выводит не первую цифру, а последнюю – остаток при делении числа на десять. Если ввести число 1984, то будет выведена цифра 4.
Если у числа первая и последняя цифра совпадают, то программа выдаст правильный ответ. Пример: 4984.
Если заменить строку n:=n mod 10 на n:=n div 10, то программа будет выводить первую цифру.Если используется присваивание n:=n mod 10, то цикл не нужен, он все равно выполнится только один раз, так как остаток при делении на 10 меньше 10.В цикле можно обойтись без служебных слов begin и end (в теле цикла только один оператор).Точку с запятой после последней команды не ставят перед (end c точкой).