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

• var x, a, b, c, d : integer;
• Begin
• write \('Введите исходное число x = '\);
• readln \(x\);
• a:=x div 1000;
• b:=x mod 1000 div 100;
• c:=x mod 100 div 10;
• d:=x mod 10;
• writeln \('Сумма цифр числа ',x,' равна ',a\+b\+c\+d\);
• writeln \('Произведение цифр числа ',x,' равно ', a\*b\*c\*d\)
• End.