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

Var
    n: integer;
begin
    readln(n);
    writeln('Последняя цифра: ', n mod 10);
    while n > 9 do
        n := n div 10;
    writeln('Первая цифра: ', n);
end.