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

program yourname; var a,b,c,d:integer; begin writeln('Введите ваше число!'); 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.