Залано целое число меньше тысячи, используя div и mod выведите на экран его последнюю и первую циФру

Ответ учителя по предмету Информатика

var

    n: integer;

begin

    readln(n);

    writeln(‘Последняя цифра: ‘, n mod 10);

    while n > 9 do

        n := n div 10;

    writeln(‘Первая цифра: ‘, n);

end.