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

program zz1;

var s, n, k, p:integer; / / задаем переменные целого типа

begin

write (' введите четырехзначное число ');

read (n); / / вводим с клавиатуры число

p:=1; s:=0;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

s:=s + k; / / прибавляем ее к сумме

p:=p * k; / / умножаем ее на произведение

n:=n div 10; / / отбрасываем ее

end;

writeln ('произведение цифр четырехзначного числа = ', p); / / выводим ответ

writeln ('сумма цифр четырехзначного числа = ', s);

end.