Помогите Паскаль Дано трёхзначное число. Найти сумму и произведение его цифр.

Var number, a, b, c:integer;

begin

writeln ('Введите трёхзначное число') ;

readln (number) ;

a:=number div 100;

b: = (number div 10) mod 10;

c:=number mod 10;

writeln (a,' - Первая цифра числа') ;

writeln (b,' - Вторая цифра числа') ;

writeln (c,' - Третья цифра числа') ;

writeln ('Сумма цифр числа = ', a+b+c) ;

writeln ('Произведение цифр числа = ', a*b*c) ;

end.