Помогите решить!

1) Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.

2) Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.

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

1)

var

a, b, c, d: integer;

begin

readln (a) ;

b : = a div 100; { сотни }

c : = (a mod 100) div 10; { десятки }

d : = a mod 10; { единицы }

writeln ('Сумма цифр равна: ', b + c + d) ;

end.

2)

var

a, b, c, d, p: integer;

begin

readln (a) ;

b : = a div 100; { сотни }

c : = (a mod 100) div 10; { десятки }

d : = a mod 10; { единицы }

p : = d * 100 + c * 10 + b;

writeln ('Наоборот: ', p) ;

end.

3)

var

a, b, c, d, e: integer;

begin

readln (a) ;

e : = a div 1000; { тысячи }

b : = (a div 100) mod 10; { сотни }

c : = (a mod 100) div 10; { десятки }

d : = a mod 10; { единицы }

writeln ('Сумма: ', e + b + c + d) ;

writeln ('Произведение: ', e * b * c * d) ;

end.