Составить программу, которая вычисляет сумму и произведение цифр…

program yourname; var a,b,c,d: integer; beginwriteln ('Введите ваше число! '); writeln ('В каждую ячейку можно вписать только однозначное число.'); writeln ('Пример: Число 2341 вводится так: 2 3 4 1 .'); readln (a,b,c,d); writeln ('Ваше число: ' , a,b,c,d); writeln ('Произведение цифр вашего числа: ' , a*b*c*d); writeln ('Сумма цифр вашего числа: ' , a+b+c+d); end.