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

var a:integer;beginwrite('Введите трёхзначное число: ');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 100div 10) + abs (a mod 10));writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (amod 100 div 10) * abs (a mod 10))end.