Дано трёхзначное число.найти: а) число единиц в нем; б) число десятков в нем; в)сумму его цифр; г) произведение его цифр

Var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
writeln('Число единиц в числе ',a, '  равно: ',abs (a mod 10));
writeln('Число десятков в  числе ',a, '  равно: ',abs (a mod 100 div 10));
writeln('Сумма цифр числа ',a, ' равна: ', abs (a div 100) + abs (a mod 100
div 10) + abs (a mod 10));
writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (a
mod 100 div 10) * abs (a mod 10))
end.