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

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.