Помогите решить! 1) Дано натуральное трехзначное число…

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.