Дано 3-х значное число (х). Составить программу для вычесления суммы и произведения цифр числа

Program ynp2;

var x, x1, x2, x3; p: integer;

begin

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

Read (x) ;

x1: x mod 100;

x3: x div 100;

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.