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

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