ДАЮ 20 поинтов в трехзначном числе нужно узнать последнюю третюю цифру этого числа, вторую и первую(паскаль)

var a:integer;
begin
write('a = ');
readln(a);
writeln('1-я цифра: ',abs(a) div 100);
writeln('2-я цифра: ',abs(a) div 10 mod 10);
writeln('3-я цифра: ',abs(a) mod 10);
end.

Пример:
a = 724
1-я цифра: 7
2-я цифра: 2
3-я цифра: 4