Дано трёхзначное число. Найти:

а) число единиц в нем;

Б) число десятков в нем;

в) сумму его цифр;

г) произведение его цифр

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.