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

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